while (<DATA>){
    chomp;
    print "$1\n" if /(\d[A-Z])/;
}