Select Code to Download

'g'=~/g/;
my $regex = 'm{}g';  # user input
...
    use re 'debug';
    print "<\$&>\\n" while \$text =~ $regex;
};

Compiling REx ""
Final program:
...
   2: END (0)
minlen 0 
Freeing REx: ""