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

##</code><code>##

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

##</code><code>##

Dumper($page) =~ s/===Comments===(.*?)=Microarray Data=/&my_process($&)/ges;

sub my_process
{
	my ($content)=@_;
	
	## Do You stuff's Here

	return $content;
}