while(grep {$_=<FH>; chop} my($name,$address,$phone,$fax) ) {
  # Do stuff
}