Help for this page

Select Code to Download


  1. or download this
    $ perl -E 'say join ":", split /(-| )/, "SMITH-JONES";'
SMITH:-:JONES