.... etc ...

	my $result;
	if ( $response =~
		m/SEARCHING\.\.\.\s+(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s+>$/ )
	{    
		 # This is a padentic match
		 # print "yes we found a match with SEARCHING within \n";
		 # print "\$1 ;$1  \$2 ;$2  \$3 ;$3  \$4 ;$4  \$5 ;$5  \$6 ;$6 \n";

		# printf( "%b \n", hex($3) );
		$result = sprintf( "%s %s %08b%08b%08b%08b",
			$1, $2, hex($3), hex($4), hex($5), hex($6) );

		#  print $result;
X	}
	elsif ( $response =~ m/(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s(\w+)\s+>$/ )
	{    

        ... etc ...