use strict;
use Irssi qw(command_bind);

command_bind full => sub {
    my ($data, $server, $window) = @_;
    utf8::decode($data);
    $data =~ s/([\x21-\x7e])/chr 0xfee0 + ord $1/ge;
    utf8::encode($data);
    $window->command("say $data")
};