foreach $txt (@{$txtById{$id}})
{
	print OUTFILE "\t\t<TXT_S>\n";
	if ($msg->{id} eq "E_Fehler_SWCA_UgaUgeMSG")  #DEBUG OUTPUT
	{
		print "$msg->{id}\nTXT =\n$txt->{id}\n$txt->{lang}\n$txt->{txtS}\n$txt->{txtL}\n";
	}
	print OUTFILE "\t\t\t<TXT lang=\"$txt->{lang}\">\"$txt->{txtS}\"</TXT>\n";
	print OUTFILE "\t\t</TXT_S>\n";
	print OUTFILE "\t\t<TXT_L>\n";
	print OUTFILE "\t\t\t<TXT lang=\"$txt->{lang}\">\"$txt->{txtL}\"</TXT>\n";
	print OUTFILE "\t\t</TXT_L>\n";
}