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