#!/usr/bin/perl
$in="da";
$out="dt.htm";

$fnt1="<FONT COLOR=darkred SIZE=+2><B>";
$fnt2="<\/B><\/FONT>";
@array=("<HTML>\n<HEAD><\/HEAD>\n\n<BODY>\n<FONT SIZE=-2 COLOR=gray>");

open (FILE, $in) || die "Can't open $in\n$!\n";
while (<FILE>)
{
	if ($_ =~ /[\x8E\xA1-\xFE][\xA1-\xFE]/) {
		$_ =~ s/Ž¡Ž¡/Ž¢Ž¢/g;
		$_ =~ s/([\x8E\xA1-\xFE][\xA1-\xFE])/$fnt1$1$fnt2/g;
		push (@array, $_);
	}
}
close FILE;

open (FILE,">$out") || die "Can't create $out\n$!\n";
foreach $t (@array) {
	print FILE $t,"<BR>\n";
}
close FILE;
