perlの条件式
参考演算子