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