#!/usr/bin/perl -w
sub member {
my $target = shift or die "No target in member/2 ";
for (0..$#_) { 
return $_ if $_[$_] eq $target; 
} 
return undef ; 
}
@arr =
qw/DRAM1.new_quad_stack.3 DRAM1.new_quad_stack.5 /;
open (IN , "$file"); 
while () { 
next unless /@arr[member($_,@arr)]/ ;
while () { 
last if /End/ ; 
print $_ ; }
} 
close IN ;

##</code><code>##

*******Voltage********* *[PRD=S][BLD=4.0.0][OS=2000][CN=MUCW6086][USR=Djordjev][PYM=1023.004MB][PKM=]
*[DC=Y][PSE=Y][TLML=N][NRTB=Y][IPC=N][PC=N][DLD=N][TS=232303]
*[FN=CA_2T_400_8ranks.cur][DT=Wed_Jul_14_02:15:17_2004][LC=red][LS=RL][LP=NN][LW=1][LM=NN][LMS=1][LMI=1]
**************Curve***************
DRAM1.new_quad_stack.3 DRAM1.new_quad_stack.1::GND red V1.
0.000000e+000 1.508947e+0003
1.162272e-012 1.508947e+0003
2.324544e-012 1.508947e+0003
3.486816e-012 1.508947e+0003
4.649088e-012 1.508947e+0003 
5.811360e-012 1.508946e+0003 
**************End***************
*[PRD=S][BLD=4.0.0][OS=2000][CN=MUCW6086][USR=Djordjev][PYM=1023.004MB][PKM=]
*[DC=Y][PSE=Y][TLML=N][NRTB=Y][IPC=N][PC=N][DLD=N][TS=232303]
*[FN=CA_2T_400_8ranks.cur][DT=Wed_Jul_14_02:15:17_2004][LC=cyan][LS=RL][LP=NN][LW=1][LM=NN][LMS=1][LMI=1]
**************Curve***************
DRAM1.new_quad_stack.4DRAM1.new_quad_stack.1::GND cyan V2.
0.000000e+000 1.508947e+0004
1.162272e-012 1.508947e+0004 
2.324544e-012 1.508947e+0004
3.486816e-012 1.508947e+0004 
4.649088e-012 1.508947e+0004 
5.811360e-012 1.508947e+0004 
**************End***************
*[PRD=S][BLD=4.0.0][OS=2000][CN=MUCW6086][USR=Djordjev][PYM=1023.004MB][PKM=]
*[DC=Y][PSE=Y][TLML=N][NRTB=Y][IPC=N][PC=N][DLD=N][TS=232303]
*[FN=CA_2T_400_8ranks.cur][DT=Wed_Jul_14_02:15:18_2004][LC=red][LS=RL][LP=NN][LW=1][LM=NN][LMS=1][LMI=1]
**************Curve*************** DRAM1.new_quad_stack.5DRAM1.new_quad_stack.1::GND red V3. 0.000000e+000 1.508947e+0005
1.162272e-012 1.508947e+0005
2.324544e-012 1.508947e+0005
3.486816e-012 1.508947e+0005 
4.649088e-012 1.508947e+0005 
5.811360e-012 1.508947e+0005 
**************End***************