Select Code to Download

$line =~ s/$regexp/$substitute/ee;

qr/throw "([^"]+)"/;

my $substitute = q{qq<throw ("$1")>};