perl -lne "chomp; @x = split /abc/, $_; do { open FILE, '>>', 'col'.$_.'.txt'; print FILE $x[$_]; close FILE } for 0 .. $#x" blah.txt