local *_;
my $found;
while (defined($_ = $fh->getline())) {
   if (/^222$/) {
      $found = 1;
      $last;
   }
}
print while defined($_ = $fh->getline());