while (<Textfile>) {
    	if (/Tropical\sBryology\s\d\d:\d+-\d+,\s\d\d\d\d/) {
        	push @grabbed1, $_;}

	if (/^Abstract:/) {
        	push @grabbed1, $_;
       }
}