Select Code to Download

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

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