print $s_socket "$match\n";
print scalar <$s_socket>;