Select Code to Download

once (/foo/)
{
  print "I've seen foo\n";
}

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