perl -nwe 'next unless ($a,$b)=/^(\d+) \[(.*)\]/;@F=split /,/,$b;print $a;print " $_" for(@F); print"\n"' twins.dat > twins.dat.out
