Mine

perl -e 'opendir D, "."; while ($x = readdir D) { print $x, "  "; while ($y = substr $x, 0, 1, substr($x, 1, 0)) { print ord($y), ", " } print "\n"; }'
.  46, 
..  46, 46, 
.DS_Store  46, 68, 83, 95, 83, 116, 111, 114, 101, 
01 La Curva Y El Humo.mp3  
02 Muco.mp3  
06 Eclipse Falc�n.mp3  
04 Columpio.mp3  
05 Entre 6 Y 8.mp3  
07 Exhalaciones.mp3  
08 Una Corriente Indefinida Y Otra Finita.mp3  
03 El Radio Est� en La Cocina.mp3