in reply to A single regex

I'm wondering if it would still be doable with a single regex with one more constraint added: Maximally one underscore.

Yes. 

m[^(?!=.*_.*_)(?=.*[a-zA-Z])[\w]+$]

[download]

Corrected. Thanks Roy Johnson

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

In Section Seekers of Perl Wisdom