in reply to Re: Some sexy regex
in thread Some sexy regex

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

In Section Seekers of Perl Wisdom