#!/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);