delete duplicate image files

gistfile1.txt

# I had a lot of duplicate images of the form
# IMG_NNNN.JPG and IMG_NNNN-001.JPG
# I wanted to delete the -001 versions, but not all -001 files were dupes.

alias sortline='tr " " "\n" | sort | tr "\n" "\t"'

alias getem='fdupes -1 . |while read line; do echo $line |(sortline; echo)| cut -f1 ; done |xargs -r rm '

for l in 2* ; do (cd $l; getem); done