print map { "$_\n" } $string =~ /.{1,5}/g;