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

##</code><code>##

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

##</code><code>##

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