Stuff

while (my $rawdata = <$sock>) {
	chop $rawdata;
	if ($rawdata =~ /^PING(.*)$/i) {
		print $sock "PONG $1\r\n";
	}
	else {
		if (substr($rawdata,(index($rawdata,"$chan :")+1),(index($rawdata,"\n")+1)) != -1) {
			print substr($rawdata,(index($rawdata,"$chan :")+1),(index($rawdata,"\n")+1));
		}
		else { 
			print "$rawdata\n";
		}
	}
}