Select Code to Download

>perl -wMstrict -le
"my $s = '1a2b3c';
...
matched '3c'
matched '3c'
matched '3c'

$pattern = 'Seuss';
     while (<>) {
         print if /$pattern/;
     }

#!/usr/bin/perl
     #    Improved simple_grep
...
     while (<>) {
         print if /$regexp/o;  # a good deal faster
     }