#!/usr/local/bin/perl -w while (<STDIN>) { chop; print "I have found what I'm looking for: <$_>\n" unless $_ ne "Tom"; }