my $keys = '('
           . join( '|',
                   map quotemata(),
                   ( 'R&R Part',
                     'In Process',

                     'On Hand   (05)',
                     'Loan Qty',
                     'Back Order Qty (14)',
                     'Ord Resvd',
                     'Min Qty' ) )
           . ')';
my %matches = $input =~ 
/$keys.+?\e\[[\d;]*m\s*(\d+)/sig;