use strict;

for my $file (<*.mkv>) {
    my $audio = $file;
    $audio =~ s/\.mkv$/.Ranmaru [TOPERS].mp3/;
    system qq(d:\\util\\mkvtoolnix\\mkvmerge -o "out/$file" --track-order "0:1,1:0,0:2" --default-track "2:no" "$file" --default-language rus --default-track "0:yes" "VO (RUS) - Ranmaru [TOPERS]/$audio");
}