﻿#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use integer;
use Unicode::Normalize;


# Filter_4_make_valid.pl
# 2010-04-04
# Wolfgang Schmidle

# what does it do?
# input
# output


my @filters = (
	"Filter_4_00_Schummelskript.pl",
	"Filter_4_01_pb.pl",
	"Filter_4_02_move_floats.pl",
	"Filter_4_03_insert_lb.pl",
	"Filter_4_04_insert_s.pl",
	"Filter_4_05_emph.pl",
	"Filter_4_06_tables.pl",
	"Filter_4_07_insert_div.pl"
);

my $file = shift @ARGV;

$_ = shift @filters;
my $command = "perl $_ \"$file\"";
foreach (@filters) { $command .= " | perl $_"; }

my $result = `$command`;

print $result;



