#!/usr/bin/perl $in="da"; $out="dt.htm"; $fnt1=""; $fnt2="<\/B><\/FONT>"; @array=("\n<\/HEAD>\n\n\n"); open (FILE, $in) || die "Can't open $in\n$!\n"; while () { 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,"
\n"; } close FILE;