while(<FILE>)
{
  if(/matches/)   # use of $_, everything is ok
  {
     $object->doSomething($part_of_line);
  }

  print "$_\n";   # here $_ has a value of undef and causes problems
}