use strict;
use warnings;

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

##</code><code>##

0
3
3
t
tt