foreach $file_line (@file_lines)
{
$file_line=~s/ü/&uuml\;/g;
$file_line=~s/ö/&ouml\;/g;
$file_line=~s/ä/&auml\;/g;
print OUT  "$file_line";
}