while (my $line = <DATA>){
   chomp $line;
   for (split//, $line) {
       print unpack "b7", $_;
   }
   print "\n";
}
__DATA__
Hello
World!
-JAPH