sub replace {
		
		while(<INPUT_FILE>){
			
				
					my $cell=$_[0];
					our $rpl;
					
					
					if ($_=~ /^TASK\|VALUE = (.*)/ ){
							
									my $task=$1;
									chomp $task;
									$rpl= $cell.'_'.$task.'_bunch_rpl';
									print "000: $rpl\n";
									
									}
					
					elsif ($_=~ /^(.*)\|VALUE = (.*)/ ){
										
										
										my $line= $_;
										chomp $line;
										my $ip_var= $1;
										my $ip_val=$2;
										chomp $ip_var;
										chomp $ip_val;
										my $look= $ip_var."|VALUE";
										open(REPLAY_FILE, "+<$rpl")  || die "\ncannot open $rpl\n";
										while (my $rpl_sub = <REPLAY_FILE>){
															if ($rpl_sub =~ /^$line/)
															{
																print "\n 111: $ip_val";
																}		
														}
														close REPLAY_FILE;
											}
					elsif ($_=~ /^\s*$/){
								print "\n";
								return ;
								}
		
						
			
	}
	
	} 

##</code><code>##

000: lfr_task62_bunch_rpl

 111: 2.0.9.0
 111: INLINE
 111: POWER 
000: aaa_task14_bunch_rpl


##</code><code>##

000: lfr_task62_bunch_rpl

 111: 2.0.9.0
 111: INLINE
 111: POWER 
000: aaa_task14_bunch_rpl

 111: 0.45
 111: NO


##</code><code>##


    TASK_CELL_NAME|VALUE = lfr
    TASK|VALUE = task62
    TASK_VERSION|VALUE = 2.0.9.0
    CHIP_PKG_TYPE|VALUE = INLINE
    JUNK_LINE = JUNK
    JUNK_LINE = JUNK
    FULL_ESD|VALUE = POWER 
    
    TASK_CELL_NAME|VALUE = aaa
    TASK|VALUE = task14
    CUSTOM_CELL_DENSITY|VALUE = 0.45
    CUSTOM_CELL_SS|VALUE = NO