my $data = '123456789';

foreach (my $i = 0; $i + 1 < length $data; $i += 2) {
    substr($data, $i, 2) = reverse substr($data, $i, 2);
}

print $data, "\n";
__END__
214365879