if ($words[0] eq "replag") {
    my $replag = get("http://tools.wikimedia.de/~interiot/cgi-bin/replag");
    $replag =~ s/^<span.*>(.*)</span>.*$/$1/;
    $self->privmsg($dest, $replag);
    return;
  }