perl -F\^" -ne "$a=$F[1] or next;open $x,qq|>> $a.mml|;print $x $_;close $x"  test1.xml