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