Irssi Supe shibe perl script!