sub late_mod
{
    my ($string, $pattern) = @_;
    my  $regex = qr/$pattern/;

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

##</code><code>##

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