irssi perl scripts for irc chat logging