knoppix@Microknoppix:~$ perl -E '
> $str = q{abcdefghijk};
> say $str;
> substr $str, 5, 2, substr $str, 3, 2, substr $str, 5, 2;
> say $str;'
abcdefghijk
abcfgdehijk
knoppix@Microknoppix:~$ perl -E '