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

<> for (1..3); # skips 3 lines from title

# read input file
while (<>) {

	last if /^\+/;

	## extract data from table ##

}