Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    printf "line %d: >%s< -- barney %sfound\n", ++$count, $line,
            $line =~ /^\s*barney/ ? '' : 'not ';
}

Select or download this

13:49 >perl 1958_SoPW.pl
line 1: >This is a wilma line< -- barney not found
...
line 5: >         and a final dino line< -- barney not found

13:49 >