print "curent working directory is $ENV{PWD}, \n";
  

         chdir ( "$config->{'data_path'}/" );
         @files7 = grep { -f } glob("*.html");
      
         foreach (@files7){
            print "Newparse2 == Parsing file: $_ \n";
            $$temp_content = path($_)->slurp_utf8;
            $$output_csv .= qq|"$_"\n\n|;
			$$name4url .= qq|"$_"\n\n|;
			
            my $dom1 = Mojo::DOM->new( $$temp_content );
			
			
			my $r1 = $dom1->find('[class="JMWMJ"]');
			#my $r1 = $dom1->find('.JMWMJ');
			
			#my $r1 = $dom1->find('div.JMWMJ');


print "1.1YYY - Config WebSite is $config->{'website'}\n";	

            foreach my $block ( @{$r1}){
               $block =~ s#\s-\s|\s\|\s#%%#g;
               my $dom2 = my $r2 = my $r3 = my $r4 = my $r5 = undef; my $res = {}; my @d = ();
               $dom2 = Mojo::DOM->new( $block );
			   my $r101;

            
			my @columns;
			my @columns101;
			
			#####added stuff here 01142012
		print "1.2YYY - Config WebSite is $config->{'website'}\n";	
			
			


		
		##$r2 = $dom2->find('CVA68e.qXLe6d.fuLhoc.ZWRArf', 'qXLe6d FrIlee') -> map( sub{ $_->text } );
			
		##	$r2 = $dom2->at('h3.LC20lb.MBeuO.DKV0Md','h3.BNeawe.vvjwJb.AP7Wnd','h3.CVA68e.qXLe6d',
			
		##	 ,'h3.CVA68e.qXLe6d.fuLhoc.ZWRArf','h3.qXLe6d.FrIlee', 'h3.toI8Rb.OSrXXb.usbThf')
		
		
		$r2 = $dom2->find('h3')
		
		 ->each(sub {
				 
		 push @columns, join '|', map { $_->all_text } $_->find('span')->each;

	
});

##</code><code>##

<div class="JMWMJ"><div class="toI8Rb OSrXXb usbThf">Sam Namett, MD - Physician - Interventional Orthopedics ...Exosomes are nanovesicles (30-200 nm) found in extracellular space of various cell types, and in biofluids; having diverse functions including intracellular ...</div></div><div class="Xxy7Vb"><div class="BtwlAd"><g-img style="width:16px;height:16px"><img id="dimg_8" src="data:image/gif;base64,R0lGODlhAQABAIAAAP///////yH5BAEKAAEALAAAAAABAAEAAAICTAEAOw=="