foreach my $filename (@files) {
  my $uid = `mkvinfo --ui-language en "$filename"`;
  chomp $uid;
  $uid =~ s/\+\s+Segment\s+UID.*?:\s+(.*?)\n/$1/;
  push @segment_uids, $uid;
}