Select Code to Download

use strict;

...

$match = $1;
print $match."\n";

if ($condition) {
   $string =~ /(is a)/;
...
}

print $match."\n";