en perl yo usaria /\d{4}/ agrupa con () si te hace falta quedarte con el valor en una variable ($1) suerte -- A. Ramos mailto:aramos@lander.es "Existen dos productos importantes que salieron de Berkeley: LSD y UNIX. No creemos que esto sea una coincidencia." -- Jeremy Anderson --