use File::Find; use autodie; open (OUT, ">filelist.txt");  find( sub {     $temp = $File::Find::name;     $temp =~ s/C:\/users\/User\/Music\/(.*)/$1/gi;     print OUT "$temp\n"; }, "C:/users/User/Music/");  close OUT;