while(1){
	$MySocket->recv($text,2);
	if($text ne '')
	{
		print "\n Number'", $text,"'\n","\n";			
		####Problem here.####
                if($text=~m/\d.*/){
			print "\nThat's a number";
		}else{
			print "\nNot a number";
		}
	}else{	
			print "Cilent has exited!";
				exit 1;
	}
}

##</code><code>##

print "\n",$def_msg;
while($msg=<STDIN>)
{
	chomp $msg;
	if($msg ne '')
	{
		#print "\nSending message '",$msg,"'";
		if($MySocket->send($msg)){
			print ".....<done>","\n";
			print $def_msg;
		}
	}
	else
	{
		# Send an empty message to server and exit
		$MySocket->send('');
		exit 1;
	}
}

##</code><code>##

>> Server Program <<

 Number'1'

##</code><code>##

>> Server Program <<

 Number'1'

That's a number
 Number'2'