#!/usr/bin/perl
use v5.14;
use warnings;
<>;
say /^([A-Z][A-Z] \d\d|B \d{2,3}) [A-Z]{3}$/ ? 'Correct!' : 'Incorrect!' while <>;