in reply to Regex puzzle for you

My guess is this:

Spoiler:

It prints xxx_ because \w matches _.

In Section Seekers of Perl Wisdom