for (@lines) {
      $_ = sprintf "%-6s", /(.{0,6})/;
    }