DB<123> $x=join "",a..j
 => "abcdefghij"
 
  DB<124> $x =~ s/(.)(?=(.))/$2$1/g
 => 9
 
  DB<125> $x
 => "bacbdcedfegfhgihjij"