anti_fail.pl

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;
$VERSION = '20120624';
%IRSSI = (
    authors     => 'href',
    contact     => 'href@random.sh',
    name        => 'anti_fail',
    description => '(almost) no more /w or /a fails',
    license     => 'Public Domain',
);

sub send_text {

    my ( $data, $server, $witem ) = @_;
    if ( $witem
        && ( $data =~ /^[\s\/]?+[\/]?(\.|\:|)[wW][\s]?+[\d]+$/ ) )
    {
        $witem->print("lol, noob");
        Irssi::signal_stop();
    }

    if ( $witem
        && ( $data =~ /^[\s\/]?+[\/]?(\.|\:|)a\s?/ ) )
    {
        $witem->print("lol, noob");
        Irssi::signal_stop();
    }

}

Irssi::signal_add 'send text' => 'send_text'