Select Code to Download

my $str = "thisisatest";
while ($str =~ /(.)(.)/g) {
    print "$`$2$1$'\n";
    pos($str)--;
}