perl -MData::Dump -MFile::Slurp -e " dd scalar read_file shift, { qw/ binmode :raw / }; "  AnyKindOfInputFile > ThatFilesBytesAsPerlAsciiCode.pl 
##</code><code>##

 
$ perl -MFile::BOM -MData::Dump -e " dd \%File::BOM::enc2bom "
{
  # tied Readonly::Hash
  "iso-10646-1" => "\xFE\xFF",
  "UCS-2"       => "\xFE\xFF",
  "UTF-16BE"    => "\xFE\xFF",
  "UTF-16LE"    => "\xFF\xFE",
  "UTF-32BE"    => "\0\0\xFE\xFF",
  "UTF-32LE"    => "\xFF\xFE\0\0",
  "UTF-8"       => "\xEF\xBB\xBF",
  "utf8"        => "\xEF\xBB\xBF",
}