Irssi - Convertir a l33t

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

$VERSION = "1.0";
%IRSSI = (
    authors     => "kid_goth",
    contact     => "g0th4ck[at]gmail[dot]com",
    name        => "leet",
    licence     => "Pa todos y todas",
    description => "Convierte el mensaje a lenguaje l33t, respetando url http y https",
    changed     => "Jueves, 19 de junio del 2014"
);

sub send_text {
    my($data, $server, $witem) = @_;
        return unless $witem;

    my $mensaje = "";
    my $tmp;
    my @datos = split(' ', $data);

    foreach (@datos) {
        $tmp = $_;

        if (!($tmp =~ /^(https?)/)) {
            $tmp =~ s/a/4/gi;
            $tmp =~ s/e/3/gi;
            $tmp =~ s/i/1/gi;
            $tmp =~ s/o/0/gi;
            $tmp =~ s/u/v/gi;
        }

        $mensaje .= $tmp . ' ';
    }
    chop $mensaje;

    $server->command("MSG $$witem{'name'} $mensaje");
    Irssi::signal_stop();
}

Irssi::signal_add_first('send text', 'send_text');