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


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

# what does it do?
# input
# output


# text input

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


# go through the text

foreach (@text) {

}


# text output

print @text;


# TO DO:
# ...