do { $_ = <> } until /formulae/;
do { $_ = <> } until /formulae/;