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


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

# what does it do?
# input
# output


# text input

my @text;
while(<>) { push @text, $_; }



	# produce proper XML
	
	s!<(\d\d\d)>!&lt;$1&gt;!g;
	s!<lb/>!<br/>!g;


# go through the text

foreach (@text) {

}


# text output

print @text;


# TO DO:
# ...
