perl -lane 'print $last if ($F[0] ne $lastt); $last = $_; $lastt = $F[0];'

##</code><code>##

perl -lane 'print $s += $F[2]'

##</code><code>##

find . -name 'Root' -print0 | xargs -0 perl -i -pe '$_=q(:pserver:sfink@cvs/usr/local/cvs)'

##</code><code>##

perl -lne 'print $1 while (/\"(.*?)\"/g)' filename

##</code><code>##

perl -lne 'print $1 while (/\"((\\.|[^\"])*)\"/g)' filename

##</code><code>##

perl -lne 'print if /(\w+)::\1/ .. /^\}/' *.cpp