Select Code to Download

#!/usr/bin/perl

...

if ( grep $string =~ /$_/, @chars ) { print "OK"; }
else { print "Oops"; }

foreach (@chars) {
if ($string =~ /$_/) { $anymatches++ }
}
if ($anymatches) { print "OK" }
else { print "Oops" }