#!/usr/bin/perl
open(INFILE, "$ARGV[0]") or die $!;
open (ALL_OUT, ">Output_File") or die $!;
while($line=<INFILE>)
{
	@english=qw//;
	@hindi=qw//;
	chomp $line;
	print ALL_OUT "########################".$line."###############################\n";
	($en_line,$hnd_line)=split(/\|/,$line);
	if($en_line =~m/:/i)
		{
			@english=split(/:/,$en_line);
			for($i=0;$i<=$#english;$i++)
			{	
				$englan=substr @english[$i],3;
				$eng_dat.=`grep -w '$englan' /home/vikash/pro_1/en_1000`;
			}
			print ALL_OUT $eng_dat;
			if($hnd_line=~m/:/i)
			{
				@hindi=split(/:/,$hnd_line);
				for($j=0;$j<=$#hindi;$j++)
				{
					$hindlan=@hindi[$j],3;
					$hindi_dat.=`grep -w '$hindlan' /home/vikash/pro_1/HI_1000`;
				}
				print ALL_OUT $hindi_dat;
			}
			else{
				$hindlane=substr $hnd_line,3;
				$hindi_dat=`grep -w '$hindlane' /home/vikash/pro_1/HI_1000`;
				print ALL_OUT $hindi_dat;
			}
		}
		else{
			$englane=substr $en_line,3;
			$eng_dat=`grep -w '$englane' /home/vikash/pro_1/en_1000`;
				print ALL_OUT $eng_dat;
				if($hnd_line=~m/:/i)
			{
				@hindi=split(/:/,$hnd_line);
				for($j=0;$j<=$#hindi;$j++)
				{
					$hindlan=substr @hindi[$j],3;
					$hindi_dat.=`grep -w '$hindlan' /home/vikash/pro_1/HI_1000`;
				}
				print ALL_OUT $hindi_dat;
			}
			else{
				$hindlane=substr $hnd_line,3;
				$hindi_dat=`grep -w '$hindlane' /home/vikash/pro_1/HI_1000`;
				print ALL_OUT $hindi_dat;
			}
		}


}