redo is usually good for that.

while (<$fh>) {
   chomp;
   if (... && !eof($fh)) {
      $_ .= <$fh>;
      redo;
   }

   ...
}
[download]