#!/usr/bin/perl -w

use strict;

my %data = split(/[:;]/, 'font-family: Verdana, Arial, Geneva, san-serif; font-size: .69em; color: #666666');

use Data::Dumper;

print STDERR Dumper(\%data);


##</code><code>##

$VAR1 = {
          'font-family' => ' Verdana, Arial, Geneva, san-serif',
          ' color' => ' #666666',
          ' font-size' => ' .69em'
        };