one liner to clean up your /usr/ports/distfiles

Ever notice your /usr/ports/distfiles bloats after several years of 
updating the same box?
You  know those 5 year old drives are about to fail, but, if you want to 
clean them up a bit, I like this:

 cd /usr/ports/distfiles
 perl -e 'while (<*>) { chomp(); $p = $_; $p =~ s/\-\d+\..*// or next; 
unlink $X if $X =~ /^$p/; $X = $_;}'

Removes the lower version number of 'double' source files, like these:
 -rw-r--r--  1 root  wheel  1282627 Sep 12  2005 tiff-3.7.4.tar.gz
 -rw-r--r--  1 root  wheel  1336295 Mar 23 07:15 tiff-3.8.2.tar.gz

Rudy