Select Code to Download

$ perl -wE 'my $s = "foo bar"; $s =~ /(bar)/; say ${^PREMATCH}'
foo 
...
Use of uninitialized value $^PREMATCH in say at -e line 1.

$

$ perl -Mre=debug -wE 'my $s = "foo bar"; $s =~ /bar/;'
Compiling REx "bar"
...
Match successful!
Freeing REx: "(bar)"
$