open FILE, "file" or die "...: $!";
{
  local $/ = \1;
  $char = <FILE>;
}
close FILE;