perl -pe 'BEGIN { %h = qw( - _ ) } s/(-)|(:.*)/$h{$1}$2/g'