in reply to Re: Remove the first word for each lines from a text filein thread Remove the first word for each lines from a text file
while (<$in>) { $_ =~ s/^\s*\S+\s*//; print $out $_; } [download]