if(!open(IN, "log.cgi")){print "<br><p align=\"center\"><font color=\"red\">File error</font></p>";};
@xx = <IN>;
foreach ( @xx )	{
	($text) = split(/,/,$_);
	foreach(qw($text)){
		print "$_は". strlength($_) ."文字です";
	}
}

sub strlength {
	my $str = shift;
	jcode::convert(\$str, 'Shift_JIS');
	my @buf =
	$str =~ /([\x00-\x7f]|[\x8e\xa1-\xfe][\xa1-\xfe]|\x8f[\xa1-\xfe][\xa1-\xfe])/og;
	scalar @buf;
}


このようなプログラムで読み込んだlog.cgiの中の文字列を$textに代入して文字数をカウントしようとしたのですが、foreach(qw($text)){の$textに文字列が代入出来ません。
どうすれば文字数をカウント出来ますか？