my $text = do {local $/;<FILE>};

##</code><code>##

perl -pe 's/(\W)/"(".ord($1).")"/eg' foo.bin