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

##</code><code>##

$s=(length $`)+(length $&);
substr($slurp,$s) =~ m/post\s*match/;