Select Code to Download

use warnings;
use strict;
...
my %hash = split /[:,]\s*/, $str;

print "$_: $hash{$_}\n" for sort keys %hash;

word1: 12345
word2: true