Help for this page

Select Code to Download

Select or download this

my $count = 0;
while (<>) {
...
        print "Found 2nd\n";
        }
    }

Select or download this

$count = 0;
do {$count++; $_ = <> } until ((/formulae/) && ($count == 2))