if ($input =~ /^PING(.*)$/i) { print $socket "PONG $1\r\n"; }