in reply to delete a line from a file

while ($temp = <$INPUT>)
{ 
if ($temp !~ /<pattern>/)
  {  
      chomp;
      my @line = split(';', $temp);

   }
}

[download]

In Section Seekers of Perl Wisdom