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