my $regex = qr/foo/;
    $regex =~ /^(.+)$/ms; # fill $1 with $regex
    print $1;