#----LENGTH COMMAND----
if($answer =~ m/!length/i)
{
if($answer =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/)
{
$xnick = $1;
$xident = $2;
$xhost = $3;
$xchannel = $4;
$xtext = $5;


if($xnick =~ $owner) {

@words = split('!length', $xtext);
$nospaces = preg_replace('/\s/', '', $words[1]);
$lengthof = length($nospaces)-2; #... >_>

print $con "privmsg $xchannel :$lengthof\n";

}

}
}