Возникла задача: переименовать все файлы и папки, имена которых начинаются на символ решетки # на имена без решетки в ОС Linux. Вот как эту задачу можно красиво решить на Perl в одну строку:
perl -MFile::Find -e 'find sub{ rename $_, (m/#(.*)/)[0] }, q{.}'