my $no_match = 1;
while ($pb->... and $no_match) {
  # ...
  $no_match = 0;
}