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