if ($string =~ /(?$mod)$regex/) {
    ...
}