Select Code to Download

use strict;
use warnings;
...
$s1 =~ s/.*/t/;
$s2 =~ s/(?{print pos(), qq!\n!}).*/t/g;
print "$s1\n$s2\n";

0
3
3
t
tt