while(Dumper($page) =~ /===Comments===(.*?)=Microarray Data=/gs) {  
			$lit_comments = $1; 
		}