Select Code to Download

my $re = qr/(?<whole_enchilada> (?<Letter>\w+) (?<Digit>\s*\d+\s*)* )/
+x;

#!/usr/bin/env perl
use 5.034;
...
oscar:~  1027> perl refoo.plx
a 1 2 3 : 'a'    1 |2 |3
b 4 5 6: 'b'     4 |5 |6