That passes my elegance test (trust me I drove a mercedes for years):

my $str = 'a b c d     e f g';
my ($key, $val) = split(/(?:\s+[^\s]+)+\s+/, $str);  
print "key=$key, val=$val\n";
[download]

bw, bliako