

open I, "00-index.txt";

while(<I>) {
  ($mp4, $rest) = /(\S+)\s(.*)/;

  if (! -f "meta/$mp4.meta") {
    print;
    system(qq'avconv -i $mp4.mp4 -metadata title="#$mp4 $rest" -metadata artist="Clipeeze" -acodec copy -vcodec copy tmp.mp4');
    system("mv tmp.mp4 $mp4.mp4");
    system(qq#echo "$rest" > meta/$mp4.meta#);
  }
}
