for (@array) {
    print "$_\n" if ($r =~ /$_/);
  }