Select Code to Download

my $data = '123456789';

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

print $data, "\n";

use strict;
use warnings;
...
}

print $output, "\n";