# UNTESTED CODE BELOW THIS LINE #################
foreach my $re (@plain) {
  my $cycle = q(
    foreach my $i (@array) {
      push @match,$re if $i =~ /).$re.q(/
    }) ;
  eval $code ;
}