Select Code to Download

perl -e 'print map chr,0..255' > chars.all

od -t x1 chars.all

sub hex_it {
  return join ' ', map {sprintf '%2.2x', $_} unpack('C*', $_[0]);
}

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper $wierd;

tr{\x93\x94}{""}; # Translate MS Word SmartQuotes into regular quotes.