こんな感じで地道にがんばってます。 sub _convert_vertical { my @text = @_; @text = map { [ split //, $_ ] } @text; @text = transpose_ragged( \@text ); @text = map { [ map {$_ || ' ' } @$_ ] } @text; @text = map { join ' ', reverse @$_ } @te…