if($input =~ /^:(\S+) privmsg (\S+) :!eval (.+)$/i){
print "Eval!";
my $command = $3;
	eval($3);
print "Error $@" if $@;
}