perl -le'$s="thisisatest";map{$t=$s;(substr($t,$_,1),substr($t,$_+1,1))=(substr($t,$_+1,1),substr($t,$_,1));print $t}0..length($s)-2'