обратите внимание, что это бесполезная комбинация совпадений с подстрокой и регулярным выражением
substr($36,1,1) ~ /^[0-9]+$/
это эквивалентно $36 ~ /^[0-9]/
с этим также можно сделать правое заполнение до 6 символов
c=sprintf("%-6s",c)
В итоге, удалите первый символ, если это цифра, правая панель длиной до 6 символов.Возможно, так проще ...
sub(/^[0-9]/,"",$36); c=sprintf("%-6s",$36)