source code for nomicdice_

#! /usr/bin/perl -pT
$|=1;
$x=0;
/^PING (.*\r?\n?)$/ and $_ = "PONG $1" and $x=1;
/^:[^ !]*![^ ]* PRIVMSG ([^ ]*) :DICE ([0-9]+)\r?\n?$/ and $_="PRIVMSG $1 :You rolled a ".(int(rand($2)+1))."\r\n" and $x=1;
/^:[^ ]* 001/ and $_="JOIN #ircnomic\r\n" and $x=1;
!defined($global) || !$global and (($global=1),($_="NICK nomicdice_\r\nUSER nomicdice localhost irc.freenode.org :Nomic Dice Bot\r\n"),($x=1));
$x or $_='';