As long as special characters aren't involved, shouldn't the following work?

foreach $output (@output) {
  if ($output =~ /$str_to_find/) {
    print "$output\n";
  }
}
[download]

Trek