local $_ = '12345';
while( /(?=..)/g ) {
    my $pos = pos();
    s/\G(.)(.)/$2$1/;
    pos() = $pos + length($2);
}
print $_, $/
__END__
23451