my ($id, $filename) = split (/\t/, $record);
$id = encode ("UTF-8", $id);