$ perl -ne '/^< (.+)/ and open STDOUT, "> $1" or print' large_file