Help for this page

Select Code to Download

Select or download this

$string =~ m{
    \A
...
    (\d*) ([[:upper:]]?) ([[:upper:]]?)
    \z     
    }xms;