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

   }
}