my $s= 'Happy Joy 002245:Dubloons 002256:hats 034523:paper clips 23234
+4:pants 233394';

my %lookup = map{ m[(^.*)\s+(\d+$)] } split ':', $s;

print "$_ => $lookup{ $_ }" for keys %lookup;

paper clips => 232344
Dubloons => 002256
Happy Joy => 002245
hats => 034523
[download]