in reply to One liner: split fixed-width field into equal length chunks...

Hi ,

This shall also do the things you require 


my $a = "HereIsTheStringAsString";
my $n = 5;


while($a =~/.{1,$n}/){print "$&\n"; $a = $'};

__END__

HereI
STheS
tring
AsStr
ing

[download]
  • Comment on Re: One liner: split fixed-width field into equal length chunks...
  • Download Code

In Section Seekers of Perl Wisdom