foreach (@string) {
 return 1 if index($s,$_);
}
return 0;

##</code><code>##

 return $s=~/$match1/io;