Select Code to Download

use strict;
use warnings;
...
my %capture = $str =~ /(\D*?)\s+(\d+):?/g;

print Dumper(\%capture);

$VAR1 = {
          'pants' => '233394',
...
          'Dubloons' => '002256',
          'paper clips' => '232344'
        };