[bcn-pm] Sustituir representaciones hexadecimales por caracteres

[Jose Luis Perez Diez]

Se os occure alguna forma mejor de sustituir un flujo de representaciones 
hexadecimales separadas por espacios ( incluidos posbles saltos de linea ) a 
una secuencia de esos caracteres:

perl -ne'while (s/\W*(\w*)\W//){print chr(hex($1))}' <<EOF
68 6f 6c 61 20 6d 75 6e 64 6f  20 68 6f 6c 61 20 6d 75 6e 64 6f 
68 6f 6c
 61 
20 6d 75 6e 64 6f 0a
EOF 
hola mundo hola mundohola mundo