Select Code to Download

my %hash = map { chr $_ => $_ } 32 .. 126;

$ perl -e 'use Data::Dump; my %h = map { chr $_ => $_ } 32 .. 126; dd 
+\%h'
{
...
  "}"  => 125,
  "~"  => 126,
}

$ perl -e 'use Data::Dump; my %h = map { chr $_ => sprintf "U+%04X", $
+_ } 32 .. 126; dd \%h'
{
...
  "}"  => "U+007D",
  "~"  => "U+007E",
}