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

##</code><code>##

od -t x1 chars.all

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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