use Devel::Peek;
Dump $text;