Cross Zone Messages.pl

if($text=~/^Message/i)
{
    my @words = split / /, substr($text, 8);
    my @message = ();
    for $x (1 .. $#words)
    {
        push(@message, "$words[$x]");
    }
    $client->Message(327, "You sent \"@message\" to " . ucfirst($words[0]) . ".");
    quest::crosszonemessageplayerbyname(335, $words[0], "CONSOLE: @message");
}