終了しているとこなのにすまん
$str =~ s/(....)/\1 /g;
または
(my $str1 = $str) =~ s/(....)/\1 /g;
だと思うんだ
評価求む