for the 8 bit version (e.g. e becomes 01100101 (depending on arch)), the following should work (not tested, but should work) :

while (<DATA>) {
    print unpack("b*",$_);
}
__END__
Just Another Perl Hacker
[download]

---

may the foo be with you