Select Code to Download

perl -ne '$,{$_}++for/(?:[\x27\w]+|-(?!--))+/g;
END{for(sort{$,{$a}<=>$,{$b}}keys(%,)){printf"%4d: %s\n",$,{$_},$_}}' 
+file.txt