$string = "string\n";
$string =~ s!(.*)!print "($PREMATCH _ {$1} _ $POSTMATCH)";!ge;