perl6の//演算子があれば楽なんだけどね