use Data::Dumper qw/Dumper/;

...
print Dumper( $text );