if($_ =~ /^:(.*)!(.*) PRIVMSG $channel :(.*)$/){
 my $user = $1;
 my $host = $2;
 my $message = $3;
 if($message =~ /^!quit$/){
  die "Quiting!\n";
 }
}