knoppix@Microknoppix:~$ perl -E '
> $str = q{abcdefghijk};
> say $str;
> $str =~ s{^...\K(..)(..)}{$2$1};
> say $str;'
abcdefghijk
abcfgdehijk
knoppix@Microknoppix:~$