Select Code to Download

    my $matched_pattern;
    if (/$regex/) {
        $matched_pattern = $regex;
    };

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