my $string = '}{ print "Bwahaha!\n"; system("rm -rf /")';