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