#!perl -pl
/\b.*,/;$_=$'-$&