#!/usr/pkg/bin/perl -0777

=begin metadata

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

=end metadata

=cut

use strict;

# 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
