$num = 0;

while (<>) {
  if (/File.*My Music.(.+)/) {
    $new = sprintf(q(%02d - %s),++$num,@{[ split(/\\/,$1) ]}[1]);
    system(qq(copy "$ful" "$new"));
  }
}