$string =~ m{
    \A
    ([[:alnum:]]+?) (?= (?: \d+ [[:upper:]]{0,2})? \z)
    (\d*) ([[:upper:]]?) ([[:upper:]]?)
    \z     
    }xms;