my @DATA = (
'     date : "April 27, 2004";', 
'    comment : "Copyright (c) 2002 FoodNation Technolo, Inc. ";',
'  power_watts : "1pC";',
'  fruits_vegs_food (1.0, pound);'
);



my $inline;
foreach $inline (@DATA)
{
   if ($inline =~ m/\s*(\w+)\s*:*\"*\(*\s*([\S\s]+)\"*\)*;*/)
   {
      print "FIRST TERM - $1\n";
      print "SECON TERM - $2\n";
   }
}

##</code><code>##

FIRST TERM - date
SECON TERM - "April 27, 2004";
FIRST TERM - comment
SECON TERM - "Copyright (c) 2002 FoodNation Technolo, Inc. ";
FIRST TERM - power_watts
SECON TERM - "1pC";
FIRST TERM - fruits_vegs_food
SECON TERM - 1.0, pound);

##</code><code>##

FIRST TERM - date
SECON TERM - April 27, 2004
FIRST TERM - comment
SECON TERM - Copyright (c) 2002 FoodNation Technolo, Inc. 
FIRST TERM - power_watts
SECON TERM - 1pC
FIRST TERM - fruits_vegs_food
SECON TERM - 1.0, pound