$ perl -E 'say join ":", split /(-| )/, "SMITH-JONES";'
SMITH:-:JONES