perl小技・ﾃﾞｰﾀ