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