my $string = "1234";
$string =~ s/.*/print("($&)");'go'/egs;   # (1234)()