images/napali.gifNapali.ch /perl

..

perl -ne '@L; for (1..2, $#L-3 .. -1) print ' < file
perl -ne 'print if /regex/' < file

perl -e '$l[$.]=$_ while <>; print for @l[1, 5..6, $#l-4..$#l-2] '