Perlで foo | bar | baz と同じことをするものを作る場合どうするの?