$string = "print 'got an o\n'";
$string =~ s/(.*)/$1/eg;