sub on_msg {
  my ($kernel, $privwho, $privmsg, $whoto) = @_[KERNEL, ARG0, ARG2, ARG1];
  my $privnick   = (split /!/, $privwho)[0];
  my $privaddy   = (split /@/, $privwho)[1];
  my $privhostident   = (split /!/, $privwho)[1];
  my $lt      = scalar localtime;
  $privmsg =~ s/^\s*//;
  $privmsgone = "";
  $privmsgtwo = "";
  $privmsgtwoplus = "";
  $privmsgthreeplus = "";
  if ($privmsg =~ m/^.+?\s+/) {
    $privmsgone = (split / /, $privmsg)[0];
  }
  elsif ($privmsg =~ m/^\s*.+?$/) {
    $privmsgone = $privmsg;
  }
  if ($privmsg =~ m/^\s*.+?\s/) {
    $privmsgtwo = (split / /, $privmsg)[1];
    $privmsg =~ /^.+?\s+(.+)/;
    $privmsgtwoplus = $1;
  }
  if ($privmsg =~ m/^.+?\s+.+?\s+(.+)/) {
    $privmsgthreeplus = $1;
    $privmsg =~ /^.+?\s+.+?\s+(.+)/;
  }

rest of your code here

}