Same as
graff but focussing solely on the hash solution - I also didn't worry about spaces after the split determinants
#!/usr/bin/perl -w
use strict;
my %data = split(/[:;]/, 'font-family: Verdana, Arial, Geneva, san-ser
+if; font-size: .69em; color: #666666');
use Data::Dumper;
print STDERR Dumper(\%data);
Output
$VAR1 = {
'font-family' => ' Verdana, Arial, Geneva, san-serif',
' color' => ' #666666',
' font-size' => ' .69em'
};
+++++++++++++++++
#!/usr/bin/perl
use warnings;use strict;use brain;