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