Select Code to Download

my $x = 'abc';

my $evil = '"; print "evil stuff here\n"; "';
$x =~s/a(bc)/qq{"$evil"}/ee;