Perlやないか、、、`do`