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

##</code><code>##

use Devel::Peek qw( Dump );
Dump($str);