use Data::Dumper;
$Data::Dumper::Purity=1;     # setting these two options like this
$Data::Dumper::Terse=0;      # is important (see also "Dump" below)

use Data::Undump::PPI;

my @input = ( {foo=>"bar"}, ["Hello","World"], "undumping!" );
my $str = Dumper(@input);
my @parsed = Undump($str);