Someone

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

$VERSION = "0.1";
%IRSSI = (
        authors     => "v_ufo",
        name        => "Boyan",
        description => "Prints boyan if a messae was too long.",
        license     => "Public Domain",
);

sub event_boyan {
my $msg_length = 200;
my ($server, $data, $nick, $mask, $target) =@_;
my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;

if(length($text) > $msg_length) {
    if ($server->ischannel($target)) {
         $server->command("msg $target боян");
    } else {
         $server->command("msg $nick боян");
    }
}

}
Irssi::signal_add('event privmsg', 'event_boyan');