(my $final = $start) =~ s/(.)(.)/$2$1/g;