確かにPerlを使えばどんな複雑な処理でも一行でかけるなw