#!/usr/bin/perl -w
use strict;

my $var = "xxx:12345 yyy:54321 zzz:13245";

my %value;

%value = split /[:\ ]/,$var;

for (keys %value) { print "$_\t:$value{$_}\n"; }

##</code><code>##

yyy	:54321
xxx	:12345
zzz	:13245