my $dummy;

while (..) {
  ...
  $counter++;
  print $text;
  $dummy = <>;
}