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

• There is no need for the //g modifier.
• I would not advocate this usage of grep. You are ignoring its return value. I think a for loop would be more straightforward in this case:

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