#!/usr/bin/perl
use strict;
use warnings;

use Irssi qw(signal_add);

sub kyberify_word {
  my ($word) = @_;
  if (length($word) > 3){
    $word = 'kyber'.$word;
  }
  return $word;
}

sub kyberify {
  my @words = split / /, $_[0];
  
  return join(' ', map {kyberify_word($_)} @words);
}

sub ircmsg {
    my ($msg, $server, $witem) = @_;
    if (defined($msg)){

        $msg = kyberify($msg);

        Irssi::signal_continue($msg, $server, $witem);
    }

}

Irssi::signal_add('send text', \&ircmsg);