On Wed, 4 Sep 2002, Jack Howarth wrote:
> #!/usr/bin/perl
>
> $_ = "* foo: (bar) baz.\n" x 8192;
>
> OUTER: {
> my $rx = qr/(\*\s*[^:]+:\s*\(([^\)]+)\).*\. *.*\n)/;
> if (/$rx/g) {
> for my $n (2..581) {
> last OUTER unless /\G$rx/g;
> }
> for my $n (582..4096)
> {
> last OUTER unless /\G$rx/g;
> print "$n OK\n"
> }
> }
> }
I already know of this code.