[Perl] ファイル内文字を指定した文字で検索を行う。そしてカウントする。

完成しました。

でも、アルファベットしか対応していません。
次は、日本語に対応してみます。

==========================================================
# ファイル内文字を指定文字で検索を行う。カウントする。
# 検索文字を入力してもらう。(日本語未対応っす。)
# 検索対象のファイル名: test.txt
package main;
print "検索文字を入力して下さい\n";
$searchdata= <STDIN>;
chomp $searchdata;
$sum= 0;
open(FILEHANDLE,"<test.txt")||die"ファイルを開けません:$!\n";
while ( $line = <FILEHANDLE> )
{
$count= &Count_SearchData($searchdata, $line);
$sum+= $count;
}
print "$sum\n";
close(FILEHANDLE);
sub Count_SearchData
{
my $search= $_[0];
my $data= $_[1];
use Encode;
$count= length(decode('euc-jp', $data));
$line=~ s/[\r\n\s]//g;
$line=~ s/[^$search]//g;
$count= length(decode('euc-jp', $line));
return $count;
}