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