use Devel::Peek;
Dump $string;