# match the string "foo" on "word boundaries"
my @line_numers = grep { $lines[$_] =~ /\bfoo\b/ } 0 .. $#lines;