mux-gokai.pl

$scriptIn = $ARGV[1];

if($rawIn =~ /\[[A-Z]+\] Pirate Sentai Gokaiger - (\d{2}) \[[0-9A-F]{8}\]\.mkv/)
{
        $epNum = $1;
}
else
{
        print "$rawIn didn't match, are you sure you're feeding me a Gokai raw?\n";
        exit(1);
}

$outName = "[Over-Time] Pirate Sentai Gokaiger - $epNum";

`"mkvmerge" -o "$outName.mkv"  "--language" "1:jpn" "--default-track" "1:yes" "--forced-track" "1:no" "--display-dimensions" "1:1280x720" "--language" "2:jpn" "--default-track" "2:yes" "--forced-track" "2:no" "-a" "2" "-d" "1" "--attachments" "1,2,3" "-S" "-T" "--no-global-tags" "$rawIn" "--language" "0:eng" "--default-track" "0:yes" "--forced-track" "0:no" "-s" "0" "-D" "-A" "-T" "--no-global-tags" "--no-chapters" "$scriptIn" "--track-order" "0:1,0:2,1:0"`;

`mv "$scriptIn" "$outName.ass"`;
`./underscore.pl "$outName.ass"`;

`./crc.pl "$outName.mkv"`;

@mkvs = <*.mkv>;

foreach (@mkvs) {
    if (index($_,$outName) > -1) {
        $crcOut = $_;
        break;
    }
}

`./underscore.pl "$crcOut"`;