Select Code to Download

my $re =qr/
^(\d{1,3})$                             # Up to 3 digits
...
                .                       # Never going to match after e
+nd of string
)
/x;