Select Code to Download

sub late_mod
{
...

    return ($string =~ /$regex/s);      # <= 's' modifier
}

$ perl -le'
my $pattern = q/fox.+?jumps/;
...
print $regex;
'
(?-xism:fox.+?jumps)