my $data = "aaaaaaaaaaaaaaaaaaaaaaa"; # 23 a's
$data =~ s/aa/pos() = print a/ge;
print $data;