Help for this page
#!/usr/bin/perl -w use strict; ... %value = split /[:\ ]/,$var; for (keys %value) { print "$_\t:$value{$_}\n"; }
yyy :54321 xxx :12345 zzz :13245