perlっぽさを出してみようとした