following is the vcd file header

$date
    Fri Aug  1 17:33:57 2014

$end
$version
    ncsim 08.20-s012
$end
$timescale
    1ps
$end
$scope module system $end
$scope module soc $end
$scope module newton_analog_atop $end
$var wire 1 ! BBPLL_CLKO_DIG_96M $end
$var wire 1 " CKO_HFOSC_2DIV12 $end
$var wire 1 # CLKO_RXADC_96M $end
$var wire 1 $ VBGOK_H $end
$var wire 1 % YOUT_RC_CAL $end
$var wire 1 & YOUT_RC_CAL_PGA $end
$var wire 1 ' ABB_BIAS_EN $end
$var wire 1 ( TXMIX_EN $end
$var wire 1 ) XO32K_VCOUT $end
$var wire 3 * AGC_IF_CAP [2:0] $end
$var wire 2 + BBAGC_AVWIN [1:0] $end
$upscope $end
$upscope $end
$upscope $end
$scope module system $end
$scope module soc $end
$scope module newton_analog_atop $end
$var wire 3 * AGC_IF_CAP [2:0] $end
$var wire 2 + BBAGC_AVWIN [1:0] $end
$upscope $end
$upscope $end
$upscope $end
$enddefinitions $end
$dumpvars
x!
bxx +
x#
x'
x(
x$
x)
bxxx *
x"
x%
x&
$end
$dumpoff $end
[download]

I want to produce following result

 
V0 (BBPLL_CLKO_DIG_96M 0) vsource type=pwl wave=[ 0p 0 199p 0 200p VDD
+/2 399p VDD/2 400p 0 599p 0 600p VDD/2 ...... ]
V1 (CKO_HFOSC_2DIV12 0) vsource type=pwl wave=[0p 0]
V2 (CLKO_RXADC_96M 0) vsource type=pwl wave=[0p 0]
V3 (VBGOK_H 0) vsource type=pwl wave=[0p 0]
V4 (YOUT_RC_CAL 0) vsource type=pwl wave=[0p 0]
V5 (YOUT_RC_CAL_PGA 0) vsource type=pwl wave=[0p 0]
V6 (ABB_BIAS_EN 0) vsource type=pwl wave=[0p VDD/2]
V7 (TXMIX_EN 0) vsource type=pwl wave=[0p 0]
V8 (XO32K_VCOUT 0) vsource type=pwl wave=[0p z]
V9 (AGC_IF_CAP\<0\> 0) vsource type=pwl wave=[0p VDD/2]
V10 (AGC_IF_CAP\<1\> 0) vsource type=pwl wave=[0p VDD/2]
V11 (AGC_IF_CAP\<2\> 0) vsource type=pwl wave=[0p VDD/2]
V12 (BBAGC_AVWIN\<0\> 0) vsource type=pwl wave=[0p 0]
V13 (BBAGC_AVWIN\<1\> 0) vsource type=pwl wave=[0p VDD/2]
[download]

I pieced together your 2 VCD file fragments, and I created some code which will parse the file:

use warnings;
use strict;
use Verilog::VCD qw(:all);

my $vcd= parse_vcd('sample.vcd');
for my $code (keys %{ $vcd }) {
    for my $net (@{ $vcd->{$code}->{nets} }) {
        print "$net->{name}\n";
        for my $aref (@{ $vcd->{$code}{tv} }) {
            print "@{ $aref }\n";
        }
    }
}
[download]

It seems like you really only need the signal names, not the times or logic values (except for maybe your BBPLL_CLKO_DIG_96M signal?). Parsing this way gives you all the info you need. You just need to format it the way you want.

It's odd that your VCD file header declares some signals (such as AGC_IF_CAP[2:0]) multiple times. It seems unnecessary.

That's so Incredible the perl module (Verilog::VCD)! I can get the following data , but how to tranfer to format that I want ? Many thanks !!

VBGOK_H
0 x
3537871350 0
5154695950 x
YOUT_RC_CAL
0 x
3537871350 0
5154695950 x
CLKO_RXADC_96M
0 x
3537871350 0
5154695950 x
AGC_IF_CAP[2:0]
0 xxx
3537871350 111
5154695950 xxx
AGC_IF_CAP[2:0]
0 xxx
3537871350 111
5154695950 xxx
BBAGC_AVWIN[1:0]
0 xx
3537871350 01
5154695950 xx
BBAGC_AVWIN[1:0]
0 xx
3537871350 01
5154695950 xx
CKO_HFOSC_2DIV12
0 x
3537871350 0
5154695950 x
XO32K_VCOUT
0 x
3537871350 z
5154695950 x
YOUT_RC_CAL_PGA
0 x
3537871350 0
5154695950 x
ABB_BIAS_EN
0 x
3537871350 1
3537913010 0
3537954670 1
4266046490 0
4448059030 1
5154695950 x
TXMIX_EN
0 x
3537871350 0
4448059030 1
5154695950 x
BBPLL_CLKO_DIG_96M
0 x
3537871350 0
3537876550 1
3537881760 0
3537886970 1
3537892180 0
3537897390 1
3537902600 0
3537907810 1
3537913020 0
3537918230 1
.
.
.
5154680220 0
5154685430 1
5154690640 0
5154695850 1
5154695950 x
[download]

the format that I want

 
V0 (BBPLL_CLKO_DIG_96M 0) vsource type=pwl wave=[ 0p 0 199p 0 200p VDD
+/2 399p VDD/2 400p 0 599p 0 600p VDD/2 ...... ]
V1 (CKO_HFOSC_2DIV12 0) vsource type=pwl wave=[0p 0]
V2 (CLKO_RXADC_96M 0) vsource type=pwl wave=[0p 0]
V3 (VBGOK_H 0) vsource type=pwl wave=[0p 0]
V4 (YOUT_RC_CAL 0) vsource type=pwl wave=[0p 0]
V5 (YOUT_RC_CAL_PGA 0) vsource type=pwl wave=[0p 0]
V6 (ABB_BIAS_EN 0) vsource type=pwl wave=[0p VDD/2]
V7 (TXMIX_EN 0) vsource type=pwl wave=[0p 0]
V8 (XO32K_VCOUT 0) vsource type=pwl wave=[0p z]
V9 (AGC_IF_CAP\<0\> 0) vsource type=pwl wave=[0p VDD/2]
V10 (AGC_IF_CAP\<1\> 0) vsource type=pwl wave=[0p VDD/2]
V11(AGC_IF_CAP\<2\> 0) vsource type=pwl wave=[0p VDD/2]
V12 (BBAGC_AVWIN\<0\> 0) vsource type=pwl wave=[0p 0]
V13 (BBAGC_AVWIN\<1\> 0) vsource type=pwl wave=[0p VDD/2]
[download]