perl の実用的な使い方

% cat CVS/Root
:ext:[email protected]:/cvsroot/emacs
% find . -path '.*/CVS/Root' -print0 | xargs -0 \
> perl -i -p -e 's/:ext:anoncvs\@(cvs\.)?s/:pserver:anonymous\@cvs.s/'
% cat CVS/Root
:pserver:[email protected]:/cvsroot/emacs