Help for this page

Select Code to Download

Select or download this


#!/usr/local/bin/perl -w
...
while (<IN>) {
    print ($_) if /mymatch/;
}