open my $fh, "<", \"foo";
binmode $fh, ":raw";
print <$fh>, "\n";

--> prints:
foo