#!/usr/bin/perl
while(<*>)
{
        $o = $_;
        s/\ /\¬/g;
        rename($o, $_);
}
foreach (<*.avi>) {
$cmd = "mkvmerge $_ -o ";
s/\.avi$/.mkv/;
$cmd .= $_;
print "$cmd\n";
system($cmd);
}
@filelist = glob("*.avi");
unlink @filelist;
foreach (<*.ogm>) {
$cmd = "mkvmerge $_ -o ";
s/\.ogm$/.mkv/;
$cmd .= $_;
system($cmd);
}
@filelist = glob("*.ogm");
unlink @filelist;
foreach (<*.mp4>) {
$cmd = "mkvmerge $_ -o ";
s/\.mp4$/.mkv/;
$cmd .= $_;
system($cmd);
}
@filelist = glob("*.mp4");
unlink @filelist;
while(<*>)
{
        $_ = $o;
        s/\ /\¬/g;
        rename($_, $o);
}
while(<*>)
{
        $o = $_;
        s/\¬/\ /g;
        rename($o, $_);
}