in reply to Regex for Differentiating Underscore and Whitespace

Who needs a regexp?

if (index($str, '_') < 0) {  
    print "no underscore\n";  
}
else {
    print "with underscore\n";
}

[download]

• another intruder with the mooring in the heart of the Perl

In Section Seekers of Perl Wisdom