perl -naF, -le '$"=",";print"@F,$_"for split/[;\s]+/,pop@F'