$str =~ s/^(...)(...)(...)$/$1 $2-$3/';

##</code><code>##

$str =~ s/^(\d\d\d)(\d\d\d)(\d\d\d)$/$1 $2-$3/';