#!/usr/pkg/bin/perl -wn
# Converts 8-bit binary numbers into text, though there's probably a better way
# to do this
# Written 24 March 2007 by John T. Wodder II
use strict;

s/\s//g;
print chr oct "0b$1" while /([01]{8})/g;
print "\n";