Select Code to Download

my $str = "jigglewort";
my @a = split //, $str;
print join('',@a[0..$_-1, $_+1, $_, $_+2..$#a]),"\n" for 0..$#a;

ijgglewort
jgiglewort
...
jigglewrot
jigglewotr
jigglewort