my $info;
while (<FH>) {
  $info = &searchEachLineForInterestingInformation($_);
    # ok, no one would ever name a subroutine that, but I'm
    # trying to be descriptive here
}