my $text = <<'_EOT_';
dbSetCellPortTypes "/opt/mylib/s956M" "blahblah" '(
  ("gnd!" "Inout" "Ground" )
  ("vint!" "Inout" "Power" )
) #f
dbSetCellPortTypes "/opt/mylib/s956M" "newCell" '(
  ("gnd!" "Inout" "Ground" )
  ("vint!" "Inout" "Power" )
) #f
_EOT_


##</code><code>##

 parse    : <skip:'(?:\s*(?:#[^\n]*)?)'> portDef(s?) /\Z/
              { $item[2] }