my $dump= eval $input;
if( my $err= $@ ) {
    warn $err;
} else {
    print Dumper $dump;
};