Help for this page
perl -ple 's{ [;\s]+ }{ m{.*,}; $/ . $& }egx' perl -ple '($a)=/(.*,)/; s/[;\s]+/\n$a/g'