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

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

	return $content;
}