use strict;
use warnings;

my $str = '12345678';

$str =~ s/(.)(.)/$2$1/g;

print $str;