Select Code to Download

#!/usr/bin/perl
use warnings;
...
        say 'No match';
    }
}

/a(.)/
$1: b
...
$&: ad
//
No match

#!/usr/bin/perl
use warnings;
...
if ($x =~ /found (\d+)/ && $y =~ //) {  # No need to repeat the long r
+egex! Yay!
    say "Found $1.";
}