@padded = map { sprintf "-%27s", $_ } /(?:\s|^)(.{1,27})(?=\s|$)/g;

@padded = map { pack "A27", $_ } /(?:\s|^)(.{1,27})(?=\s|$)/g;