while ($line = <>) {
  # ...
  my $pos = tell ARGV;
  my $next = <>;
  seek ARGV, $pos, 0;
  # ...
}