# AU_PURE_rip.pl - version 10.03.2017 kl. 09.10
# Udtrękker data fra poster fra AU-PURE
use strict;
use warnings;
my $file = $ARGV[0];
open(INPUT, $file) or die("Input file $file not found.\n");
my $output = $ARGV[1];
open(OUTPUT, '>'.$output) or die "Can't create $output.\n";
open TEMP, "+>temp2.txt" or die $!;
while(my $line = ) {
$line =~ s|\n| |ig; #erstat linieskift med blanktegn overalt i input-fil
$line =~ s|\t| |ig; #erstat TAB med blanktegn overalt i input-fil
$line =~ s|&|&|ig;
$line =~ s|(.*?)|$1|ig;
print TEMP $line; }
print "Empty lines and TABs removed\n\n";
close(TEMP);
open(TEMP2, ") {
# Delete header and footer
$line2 =~ s|||ig;
$line2 =~ s|.*?