use Data::Dumper;
chomp($code = <IFH>);
print Data::Dumper->new( [ $code ] )->Terse(1)->Useqq(1)->Dump();