Most importantly, thank God for the Deftones. Rocket Skates++, especially.

Secondarily, I noticed you are doing a lot of \n manipulation after your qx. You might be able to simplify that code by capturing the find output into an array instead:

    my @files = qx[find $dir -iname "*$array_out[$i].mp3*"];
[download]