my $c = 0;
$_ = "jigglewort\n";
print and $c++ while s/(.{$c})(.)(.)/$1$3$2/;