Select Code to Download

\d - matches 0 .. 9
(\d+) - means match at least 1 digit, could be more.
[^ ] - means don't match space
\S - Another way to match something that isn't a space

$line =~ /,?([A-Z]{3}\d{2}[A-Z]),/;