Select Code to Download

$result =~ s/(Mr(s)?) a/\1 A/s;

\1 better written as $1 at...

if ($test =~ /some_test/) {
    $foo = $1;
}