my $pat1 = qr '(\d-\d\w{2}(?:\.\w+)?)';
my $pat2 = qr '([A-Z]\d{2}(?:\.\d+)?)';