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