open FILE, $ARGV[0] or die "Couldn't open file: $!";
binmode FILE;
read FILE, $string, 100000;
$string =~ s/80.1//smg;
$string =~ s/^\s*//m;
$string =~ s:\n\n:\n:smgi;
print $string;