#!/usr/bin/perl -ws

use strict; use warnings;
use Text::Perfide::BookCleaner;
use Data::Dumper;

binmode(STDIN,":encoding(utf8)");
binmode(STDOUT,":encoding(utf8)");

my $text = join '', <>;
my ($dig,$txt,$pbtab) = pages($text);


#print Dumper $dig;
writefile($txt);