#!c:/perl/bin/perl -w
$|++;

use strict;

my $word = 'jigglewort';

for my $i (0 .. length($word)-1) {
  my $tmp = $word;
  substr($tmp, $i, 2, reverse substr($tmp, $i, 2));
  # _or_
  # substr($tmp, $i, 2) = reverse substr($tmp, $i, 2);

  print $tmp, "\n";
}

=for output
ijgglewort
jgiglewort
jigglewort
jiglgewort
jiggelwort
jigglweort
jiggleowrt
jigglewrot
jigglewotr
jigglewort
=cut