turo@indus:/tmp$ perl -ne 'print $_,"\n" for ((/#([^\(|^\!].*)$/))' p.pl | sort | perl -ne 'print (scalar(split //),", ")'