http://www.perlmonks.org?node_id=101743


in reply to IF NOT! IF NOT!

using perl regular expressions, try:
foreach my $word (@words) { print "$word\n" if ($word =~ /home/); }


--twerq