once (my $i;/foo/;$i++ < 42)
{
  print "I've seen foo $i times\n";
}