perl -ple 's/[;\s]+/m#.*,#;$\.$&/eg'