did you try binmode?

sub read_binary
{
  local($fname) = @_;
  
  open(FILE, "<$fname") || return '';
  binmode FILE;
  while(<FILE>){ $spcontent .= $_; }
  close(FILE);
  $spcontent;
}
[download]

JamesNC