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