Perl one-liners

Supprimer tous les caractères non-imprimables (sauf les \n)

perl -lpe 's/[[:^print:]]+//g' fichier.txt

Enlever toutes les lignes en double (doublon)

perl -ne 'print unless $a{$_}++' fichier.txt

Afficher les lignes en double préfixés par leur numéro de ligne

perl -ne 'print "$. $_" if $a{$_}++' fichier.txt