Perl でファイルの行数を if 文で、チェックできるんだっけか。