¿Cómo leo los registros de longitud fija en Perl?