Select Code to Download

...
sub convert
...

"three - four - five+89" =~ $re;
print "baz=$~{baz}, qux=$~{qux}, $~{3}\n";

my $re = qr/(?\$bar=\w+) - (?\$qux{not}=\w+)/;

...
sub convert
...
    $re
}
...

my $re = qr/...(?\$var=a(\d+|\w-\w+)b).../;