$oldstring = '123456789';;
$oldstring =~ s[(...)(...)(...)][$1 $2-$3];;

print $oldstring;;
123 456-789