while(<DB>){
 	     my $rec = $_;
 		    chomp($rec);	         
 	             ($num,$_name)=split(/,/,$rec);
 	             
 	             $num=~s/(\d)(\d\d\d\d\d)/$2/g;
 	             print "First mach $num<br>";
 	           if($num=~/0\d{4}/g){
 	           
 	           $num=~s/(\d)(\d\d\d\d)/$2/g;
 	           print "Second mach = $num_pal<br>";
 	           }
 	            # exit;
 	               my $pal = <PROCPAL>;
 	               chomp($pal);
		       ($pal_num,$appr,$e_mail,$terr)=split(/\#/,$pal);