Select Code to Download

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

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