print "Found Data: $text\n";

##</code><code>##

use Data::Dumper qw/Dumper/;

...
print Dumper( $text );