use 5.010;
use strict;
use warnings;

use Data::Dumper;

for my $var (keys %main::) {
  my $name = $var;
  $name =~ s/([\x00-\x1f\x7f])/'^'.($1^'@')/eg;

  my $dumper = do {
    no strict qw/refs/;
    Data::Dumper->new([ $$var ], [ $name ]);
  };

  print $dumper->Purity(1)->Useqq(1)->Dump();
}