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

my $a = "     a: b c: d              e:         f   ";
$a =~ y/://d;
my %h = eval "qw/$a/";   # The Evil String Eval

print "Key [$_] | Value [$h{$_}]\n" for keys %h;