# ($props{$lang} = $tuv->findvalue('seg')) =~ s{\n}{<lb/>}g;
my $seg  = $tuv->findnodes('seg')->get_node(1); #first
$props{$lang} = join '',map {$_->toString} $seg->childNodes();
$props{$lang} =~ s{\n}{<lb/>}g;