Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @seatlocs = (qw(A1.23BC U2.60L R2.32 C1.3L AB3.45E D45.1A), 'Some 
+Bldg');
...
'AB3.45E' Invalid
'D45.1A' Invalid
'Some Bldg' Invalid