unless ($line =~ m/([A-Z]\d[A-Z]\s*\d[A-Z]\d)/i) {