$ perl -lane '$F[0] eq "<" and open O, "> $F[1]" or print O $_' large_file