#!/usr/bin/perl -ws

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

for my $f (@ARGV){
	my $text = gettxt($f);
	my ($dig,$txt) = paragraphs($text);


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