while ($WOW =~ m!<table id=.*?table.*?<a href=.*?><b>(.*?)</b></a></span>.*?\(from (.*?)\)!sim) {
         			$Uip = $1;
         			$Uuser = $2;
				my %hash = (key => $Uip);
				$hash{key} .= $Uuser;
				print "$hash{key} \n";