use Encode; use Encode::Escape; use Data::Dumper; use JSON; ... while ($line = ) { $strut = from_json($line); print decode('unicode-escape', Dumper($strut)) . "\n"; }