gistfile1.txt

use Net::IRC::Bot;

class Linker {
    method said($ev) {
        note "Event: ", $ev.perl;
        if $ev.what ~~ /S(\d+)\:(\d+)/ {
            $ev.msg: "Link: http://perlcabal.org/syn/S$0.html#line_$1"
        }
    }
}

Net::IRC::Bot.new(
	nick       => 'synopsebot',
	server     => 'irc.freenode.org',
	channels   => qw/#perl6/,
	modules    => (Linker.new),
	debug      => True,
).run;