perl -ne 'print if /[A-Z]{2,5}\d{5}/' some_file