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