in reply to Help with Generic Pattern Matching Statement

Go from here.
while(<DATA>){ chomp; s/\"|\;//g; my($item,$value) = split /\s\:?/,$_,2; $value =~ s/^\s*\(//; $value =~ s/\)\s*$//; print "$item , $value\n"; } __DATA__ direction : in code_unit : "1ps"; sum_1 ("0.01, 0.02"); function : "((( X1 | X2 ) & A1))"; process : 1; cap ( 3.0 , pf ); features ( display ) ;
Above gives
direction ,  in
code_unit ,  1ps
sum_1 , 0.01, 0.02
function , (( X1 | X2 ) & A1)
process ,  1
cap ,  3.0 , pf 
features ,  display