H:\>cat try1.txt
bla
blurb
foo foo
foo
lilalu

H:\>cat try2.txt
bla
blurb
fuu fuu
fuu
lilalu

H:\>cat try1.txt | perl try.pl
bla
blurb
bar bar
bar
lilalu

H:\>cat try2.txt | perl try.pl
bla
blurb
fuu fuu
fuu
lilalu
Nothing found!

H:\>