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 ;
								}
		
						
			
	}
	
	}