#!/usr/bin/perl -w

$file = shift;

$/ = undef;
open  FILE, "<", $file;
$_ = <FILE>;
close FILE;

while ( not m/\G\z/gc )
{
    if    ( m/\G(<(?>[^>"]|"[^"]*")*>)/gc ) { print "$1";   }
    elsif ( m/\G(\d+)/gc                  ) { print "<font color=red>$1</font>"; }
    elsif ( m/\G([^<\d]*)/gc              ) { print "$1";   }
    else
    {
        $loc = pos($file);
        die "Fehler an Position $loc in Datei $file\n";
    }
}