Select Code to Download

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

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

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

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

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

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