http://www.perlmonks.org?node_id=327084


in reply to Counting characters in a string

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

[download]

Replies are listed 'Best First'.
Re: Re: Counting characters in a string
by ysth (Canon) on Feb 06, 2004 at 16:02 UTC
    That will stop at every newline and continue again after it: 
    $ perl -we'$string = "abcdef\nghijk\nlmno\npqr\nst\nu";
> print map { "$_\n" } $string =~ /.{1,5}/g;'
abcde
f
ghijk
lmno
pqr
st
u

    [download]
    You either want the //s flag on the match or some other way of dealing with newlines.
[reply]
[d/l]
      thanks, you are right //s is fine for me.
[reply]
[d/l]

In Section Seekers of Perl Wisdom