use IO::Socket;
my $sock = new IO::Socket::INET("$remote_server:43") || die $!;
print $sock "$data\r\n";
my @output = <$sock>;
$output = join('', @output);

if ($output =~ /$no_match/gi) {
&true;
} else {
&false;