Select Code to Download

use strict;
use warnings;
...
$regex = qr/^($regex)$/m;

printf "found %s at %d\n", $1, $-[0] if $text =~ $regex;