Una de las formas de hacer esto, por ejemplo con perl, sería lo siguiente: