in reply to Splitting a string

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

[download]

In Section Seekers of Perl Wisdom