perl -e 'while(<*.mp3>){$orig=$_;s/%20/ /;print"$orig -> $_\n";}' #### perl -e 'while(<*.mp3>){$orig=$_;s/%20/\\ /;print`mv -v $orig $_`;}'