Select Code to Download

$string = Happy Joy 002245:Dubloons 002256:hats 034523:paper clips 232
+344:pants 233394;

@items = split (/:/, $string);
$number = split(/\d+/, $items[0]);