while ($temp = <$INPUT>) { if ($temp !~ /<pattern>/) { chomp; my @line = split(';', $temp); } } [download]
In reply to Re: delete a line from a file by snape in thread delete a line from a file by vbynagari