emoji.pl

use strict;

sub event_send_text {
  my ($text, $server, $win_item) = @_;

  $text =~ s/:-1:/👎/g;
  $text =~ s/:\+1:/👍/g;
  $text =~ s/:poop:/💩/g;
  $text =~ s/:no_good:/🙅/g;
  $text =~ s/:ok_woman:/🙆/g;


  Irssi::signal_continue($text, $server, $win_item);
}

Irssi::signal_add('send text', 'event_send_text');