last if $text =~ /\G \s* \Z/gcmsx;
  # spent   181ms making 866465 calls to main::CORE:match, avg 208ns/call
  if     ($text =~ /\G \s* ^ \s* begfoo \s+ (\S+?) \s* \( \s* (.*?) \s* \) \s* ;/gcmsx) { $name = $1 }
  # spent  3.74s making 2547279 calls to main::CORE:match, avg 1µs/call