Select Code to Download

$string = m/($start)(*)($end)/;
print "$2";

$string =~ m/$start(.+?)$end/s;
print $1;