On Monday 09 December 2002 10:47, aj wrote: > I would think if I could do a split on this the top line with a variable > amount of spaces and then I would just remove the second portion of the > line. Something like this then? while (<DATA>) { my ($keep) = split /\s{2,}/, $_; } -- c