#!/usr/bin/perl -0777

=for info

Name: ppt
Description: reformat input as paper tape
Author: Mark-Jason Dominus, mjd@plover.com
License: 

=cut

# ppt - reformat input as paper tape
# mjd@plover.com

print "----------\n";
for (split //, <>) {
    $_ = unpack "B8", $_;
    s/.(....)(...)/$1.$2/;
    tr/01/ o/;
    print "|$_|\n";
}

print "----------\n";

=encoding utf8

=head1 NAME

ppt - reformat input as paper tape
