note
Mago
Ok ! Yes, you are certain, with \w+ is very better. <br><br>
<code>
perl -e 'while(<*>){if(-f && /\.(\w+)$/){$e{$1}++}}print "$_ -> $e{$_}\n" for keys %e'
</code>
Thanks;<br>
<div class="pmsig"><div class="pmsig-133118">
<br><br>
Mago<br>
mago@rio.pm.org<br>
<br><br>
</div></div>
516401
516440