3をperlで解いた