$s1 = "abc";
$s2 = "abc";
$s1 =~ s/.*/t/;
$s2 =~ s/.*/t/g;
print $s1;
print "\n";
print $s2;