undef $/;
$slurp=<SOCKET>;
$slurp =~ m/wha+t\n?\s*ever/;