irc color spammer

cspam.pl

#!/bin/perl
use strict;
use Irssi;
use Irssi::Irc;
use vars qw($VERSION %IRSSI);

$VERSION= '1.0';

%IRSSI = (
  authors => 'munki props to vap0r and acidvegas',
  contact => '[email protected]',
  name => 'cspam',
  description => "irc color spam",
  license => "BSD",
  url => "none",
  changed =>"05-17-2017 2320"
);
sub cspam{
  my ($data, $server, $witem) = @_;


  my $color = [int rand 15, int rand 15];


#  my $bullshit = substr("\x03${$color}[0],${$color}[1]$data\x03${$color}[1],${$color}[0]$data" x 100 , 0, 400);
  my $bullshit = substr("\x03${$color}[0],${$color}[1]" . ("$data\x16$data\x16" x 100) , 0, 400);
  $witem->command("SAY $bullshit");

}
Irssi::command_bind('cspam', 'cspam');