in reply to Re: Weird underscore/whitespace failing regex
in thread Weird underscore/whitespace failing regex

Since we're dealing with a var, 

use Data::Dumper qw( Dumper );
$Data::Dumper::Useqq = 1;
print(Dumper($str));

[download]
or 
use Devel::Peek qw( Dump );
Dump($str);

[download]

In Section Seekers of Perl Wisdom