in reply to Seperating individual lines of a file

perl -ne 'open(FILE, ">>".$1) if /^(.*?)\s(.*)$/; print FILE $2."\n"; +close FILE' data_file

Replies are listed 'Best First'.
Re^2: Seperating individual lines of a file
by blazar (Canon) on Feb 03, 2006 at 12:42 UTC
    Interesting because golfed, although not to the extreme. But the OP should be warned about this circumstance. More importantly, and worth repeating, graff's comment applies to your solution as well.