my $data = '123456789';

$data =~ s/(.{2})/reverse $1/eg;

print $data, "\n";