Re^2: better way to convert a string into an array and an hash

May I recommend

while ($string =~ /(\d+):(\d+)(?:,|$)/g) {
   $hash{$1} = $2;
   push(@array, $1);
}
[download]

over

$string =~ s/(\d+):(\d+)(?:,|$)/$hash{$1}=$2;push(@array, $1)/ge;
[download]

Comment on Re^2: better way to convert a string into an array and an hash Select or Download Code