Select Code to Download

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

ijgglewort
igjglewort
...
igglewojrt
iggleworjt
igglewortj