Select Code to Download

#!/usr/bin/perl -w
use strict;
...
%value = split /[:\ ]/,$var;

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

yyy    :54321
xxx    :12345
zzz    :13245