Select Code to Download

sub parse_foo {
    my ($text) = @_;
...
    }
    print "LAST FOO: $name\n";
}

  last if $text =~ /\G \s* \Z/gcmsx;
  # spent   181ms making 866465 calls to main::CORE:match, avg 208ns/c
+all
  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/cal
+l

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