print join "\n", unzip('AaBbCcDdEeFGHIJ', 5); #### { local $" = "\n"; print "@{[unzip('AaBbCcDdEeFGHIJ', 5)]}"; }