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


in reply to Splitting a string

"perl monks" =~ /(\w{2})(?{print "$1 "})^/;

[download]

In Section Seekers of Perl Wisdom