#!/usr/bin/perl

open(BINFILE, "your favorite binary file here");
binmode(BINFILE);
$escaped = "";

while(read(BINFILE, $char, 1)){
   $char = escape(ord($char));
   $escaped .= $char
}

print $escaped, "\n";

sub escape {
   $ordinal = shift();
   %escapeList = (0 => "\\\\000",
   				  1 => "\\\\001",
   				  2 => "\\\\002",
   				  3 => "\\\\003",
   				  4 => "\\\\004",
   				  5 => "\\\\005",
   				  6 => "\\\\006",
   				  7 => "\\\\007",
   				  8 => "\\\\008",
   				  9 => "\\\\009",
   				  10 => "\\\\010",
   				  11 => "\\\\011",
   				  12 => "\\\\012",
   				  13 => "\\\\013",
   				  14 => "\\\\014",
   				  15 => "\\\\015",
   				  16 => "\\\\016",
   				  17 => "\\\\017",
   				  18 => "\\\\018",
   				  19 => "\\\\019",
   				  20 => "\\\\020",
   				  21 => "\\\\021",
   				  22 => "\\\\022",
   				  23 => "\\\\023",
   				  24 => "\\\\024",
   				  25 => "\\\\025",
   				  26 => "\\\\026",
   				  27 => "\\\\027",
   				  28 => "\\\\028",
   				  29 => "\\\\029",
   				  30 => "\\\\030",
   				  31 => "\\\\031",
   				  32 => "\\\\032",
   				  39 => "\\\\047",
   				  92 => "\\\\134",
   				  );
   if(defined($escapeList{$ordinal})){
   		return $escapeList{$ordinal};
   }
   else{
      return chr($ordinal);   
	}
}