# ...
if ($s =~ REGEX) {
    print "found\n";
}
# ...