ファイルの中にある特定文字列を数える(Perl版) ref: http://qiita.com/ymko/items/f643981c4742155c0ec0