Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $str = qq{cat\nman\ncat\ndog\neel\nman\nman\ncat\ncat\nman\n};
...
3 cat
man
<

c:\@Work\Perl\monks>perl -wMstrict -le
"my $str = qq{cat\nman\ncat\ndog\neel\nman\nman\ncat\ncat\nwoman\n};
...
3 cat
woman
<