002をperlで解いた