linux, 확장자찾기

find . -type f | perl -ne 'print $1 if m/\.([^.\/]+)$/' | sort -u