Select Code to Download

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

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