# This is simple Sandhi Splitter Program for Malayalam Tamil MT
# April, 2013, VRCLC- IIITM-K
# jisha p jayan

while($line=<>)
{   
	chomp($line);
	my $word1,$word2, $word;
	$line=~s/\x{2018}/'/g; # <2018> ‘ is Replaced by single quote "'"
        $line=~s/\x{2019}/'/g; # <2019> ’ is Replaced by single quote "'"
        $line=~s/\x{200D}//g; # <200D> is Removed
        $line=~s/\x{200C}//g; # <200C> is Removed
        $line=~s/\x{200c}//g; # <200C> is Removed
        $line=~s/\x{202c}//g; # <200C> is Removed
        $line=~s/\x{200B}//g; # <200B> is Removed
        $line=~s/\x{feff}//g; # <feff> is Removed
        $line=~s/\x{0D}//g; # ^M is Removed
        $line=~s/á//g; # 
	$line=~s/\x0//g;

	$line=~/([0-9]*)\t(.*)/;
	$num=$1;
	$word=$2; 

#  SPELLING ERROR - jisha 20032014
	$word=~s/eVA/oV/;
	$word=~s/eA/o/;
	$word=~s/Oa/O/;
	$word=~s/lYalYa/lYlYa/;
	$word=~s/lYalYi/lYlYi/;
	$word=~s/lYalY/lYlY/;
	$word=~s/llYeV/lleV/;
	$word=~s/Unna/unna/;
	$word=~s/lawweVu/leVwwu/;
	$word=~s/s‌pUN/spUN/; 
	$word=~s/pes‌r/pesr/;
	$word=~s/y‌kk/ykk/;
	$word=~s/iR‌ta/iRta/;
	$word=~s/grAnpu/grAnpU/;
	$word=~s/kis‌m/kism/;
	$word=~s/is‌p/isp/;
	$word=~s/koNZP‌lY/koNZPlY/;
	$word=~s/soyAseAs‌/soyAsos/;
	$word=~s/koP‌wA/koPwa/;
	$word=~s/koP‌wa/koPwa/;
	$word=~s/cat‌ni/catni/;
	$word=~s/ceVy‌wa/ceVywa/;
	$word=~s/PrEyif‌pA/PrEyifpA/;
	$word=~s/al‌paM/alZpaM/;
	$word=~s/kAp‌sikk/kApsikk/;
	$word=~s/tebilYZ spU/tebilYZspU/;
	$word=~s/s‌rYrY/srYrY/;
	$word=~s/eA/o/;
	$word=~s/teA/to/;
	$word=~s/maaya/mAya/;
	$word=~s/sE്varya/svErya/; 
	$word=~s/noVNZveVj‌/noNZveVj/;
	$word=~s/karYippeila/karYiveppila/;
	$word=~s/oVr$/oVru/;
	$word=~s/s‌peVRyal/speVRyal/;
	$word=~s/noNZsrYrYik‌pA/noNZsrYrYikpA/;
	$word=~s/eVnrYarZteVynarZ/eVnZrYarZteVynarZ/;
	$word=~s/mik‌si/miksi/;
	$word=~s/sanpuR‌tam/sanpuRtam/;
	$word=~s/cat‌pata/catpata/;
	$word=~s/kolYiP‌lYa/kolYiPlYa/;
	$word=~s/id‌dali/iddali/;
	$word=~s/s‌tripp/stripp/;
	$word=~s/pAp‌ti/pApti/;
	$word=~s/hEtrok‌sEd‌/hEtroksEd/;
	$word=~s/Prid‌j/Pridj/;
	$word=~s/layAni/lAyani/;
	$word=~s/puNaൃ/puNya/;
	$word=~s/sip‌lok‌/siplok/;
	$word=~s/PrEyiMg‌\npAnZ/PrEyiMg‌pAnZ/;
	$word=~s/eR‌t/eRt/;
	$word=~s/s‌peV/speV/;
	$word=~s/s‌ki/ski/;
	$word=~s/rY‌l/rYl/;
	$word=~s/s‌kA/skA/;
	$word=~s/ayoxXq/ayoxXya/;
	$word=~s/y‌n/yn/;
	$word=~s/verZwirivakelY/verZwirivukalY/;
	$word=~s/s‌kU/skU/;
	$word=~s/ulYlYU/ulYlYu/;
	$word=~s/nZeVrYa/nZrYeV/;
	$word=~s/PE്lYa/PlYE/;
	$word=~s/R‌TA/RTA/;
	$word=~s/y‌w‌/yw/;
	$word=~s/hariwaBamAya/hariwABamAya/;
	$word=~s/davalap‌meVnZrY/davalapmeVnZrY/;
	$word=~s/aR‌tacUrZNaM/aRtacUrZNaM/;
	$word=~s/wAl‌paryaM/wAlparyaM/;
	$word=~s/Sab‌xamAXuryaM/SabxamAXuryaM/;
	$word=~s/SaHs‌waMB/SaHswaMB/;
	$word=~s/wutaffanpolYYekkuM/wutaffunpolYYekkuM/;
	$word=~s/malYYapakRi/malYYappakRi/;
	$word=~s/paripAlaww/paripAlanaww/;
	$word=~s/venakkAlaww/venalZkkAlaww/;
	$word=~s/pUrZNamAyi/pUrZNNamAyi/;
	$word=~s/kaNtawweVi/kaNteVwwi/;
	$word=~s/lIrYrYar/lirYrYar/;
	$word=~s/varYrYalZmulYaka/varYrYalZmulYak/;
	$word=~s/milliyila/malliyila/;
	$word=~s/uൌrYrYi/UrYrYi/;
	$word=~s/kRaൗraM/kROraM/;
	$word=~s/oVA/o/;
	$word=~s/vAlYanZ\npulYi/vAlYanZpulYi/;
	$word=~s/SaRaM/SeRaM/;
	$word=~s/graM/grAM/;
	$word=~s/eVA/oV/;
	$word=~s/koVNteVAru/koVNtoVru/;
	$word=~s/keVANt/koVNt/;
	$word=~s/gusanXaM/suganXaM/;
	$word=~s/s‌l/sl/;
	$word=~s/AnXrAkkAr/AnXrakkAr/;
	$word=~s/natyaSaswra/nAtyaSAswra/;
	$word=~s/SaxXikk/SraxXikk/;
	$word=~s/polYeV/poleV/;
	$word=~s/rYarY/rYrY/;

	if($word=~/ki \. mI \./) {
	        $word=~s/ki \. mI \./kimI/g;
        }
  
	if($word=~/ki \.mI \./) {
	        $word=~s/ki \.mI \./kimI/g;
        }
  
	if($word=~/seV \.mI \./) {
	        $word=~s/seV \.mI \./seVmI/g;
        }
  
	if($word=~/seV\.mI\./) {
	        $word=~s/seV\.mI\./seVmI/g;
        }


	if($word=~/‘/) {
	$word=~s/‘/'/;
	}
	if($word=~/'/) {
	$word=~s/’/'/;
	}
	if($word=~/–/) {
	$word=~s/–/-/;
	}
	if($word=~/“/) {
	$word=~s/“/"/;
	}
	if($word=~/…/) {
	$word=~s/…/\.\.\./g;
	}
	#if($word=~/)/) {
	#$word=~s/)/)/g;
	#}


	if($word=~/^([0-9]+).*[A-z]\t/) { # 8AM = 8 + AM
	$word=~/(.*)([0-9])([A-z])(.*)/;
	$word=$1."$2\tunk";
	$word1=$3.$4;
	}

#SPLITTING
	if($word=~/wweVwwut(.*)\t/) { # prawiReXawweVwwutarZnn = prawiReXawweV + wutarZnn
	$word=~/(.*)wweVwwut(.*)/;
	$word=$1."wweV\tunk";
	$word1="wut".$2;
	}

	if($word=~/([A-z])([w]+)eVww(.*)\t/) { # wiruvanawapurawweVwwaNaM = wiruvanawapuraww + eVwwaNaM
	$word=~/(.*)([w]+)eVww(.*)/;
	$word=$1.$2."\tunk";
	$word1="eVww".$3;
	}

	if($word=~/ANoVruk(.*)\t/) {  	# kAlYYcayANoVrukkunnaw = kAlYYcayAN + oVrukkunnaw
	$word=~/(.*)ANoVruk(.*)/;
	$word=$1."AN\tunk";
	$word1="oVruk".$2;
	}

	if($word=~/([A-z])([nl]+)eVww(.*)\t/) { # rAmaneVwwi = rAmanZ + eVwwi, deVlZhiyileVwwumAyirikkuM= deVlZhiyilZ + eVwwumAyirikkuM, virunnineVwwunna = virunnunZ + eVwwunna , kUttawwoteVyeVwwArY = kUttawwoteV+eVwwArY
	$word=~/(.*)([nl]+)eVww(.*)/;
	$word=$1.$2."Z\tunk";
	$word1="eVww".$3;
	}

	if($word=~/lYuNtA(.*)\t/) {  	# pakRikalYuNtAyirunnu = pakRikalYZ + uNtAyirunnu
	$word=~/(.*)lYuNtA(.*)/;
	$word=$1."lYZ\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/amoVr(.*)\t/) {  	# wAmasamoVrukki = wAmasaM + oVrukki
	$word=~/(.*)amoVr(.*)/;
	$word=$1."aM\tunk";
	$word1="oVr".$2;
	}

	if($word=~/ukilo(.*)\t/) {  	# oVrukilo = oVru + kilo
	$word=~/(.*)ukilo(.*)/;
	$word=$1."u\tunk";
	$word1="kilo".$2;
	}

	if($word=~/ANoVruk(.*)\t/) {  	# kAlYYcayANoVrukkunnaw = kAlYYcayAN + oVrukkunnaw
	$word=~/(.*)ANoVruk(.*)/;
	$word=$1."AN\tunk";
	$word1="oVruk".$2;
	}

	if($word=~/([A-z])([y]+)eVwwA(.*)\t/) { # iviteVyeVwwArYuNt = iviteV + eVwwArYuNt
	$word=~/(.*)([y]+)eVwwA(.*)/;
	$word=$1."\tunk";
	$word1="eVwwA".$3;
	}

	if($word=~/([A-z])([y]+)ArZj(.*)\t/) { # SakwiyArZjjiccu  = Sakwi + ArZjjiccu
	$word=~/(.*)([y]+)Ar(.*)/;
	$word=$1."\tunk";
	$word1="Ar".$3;
	}

	if($word=~/([A-z])aBim(.*)\t/) { # arYabikkatalinaBimuKamAyi = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)aBim(.*)/;
	$word=$1."\tunk";
	$word1="aBim".$2;
	}

	if($word=~/eVnnuvis(.*)\t/) {  	# kalYYivuNteVnnuviSvasikkappeVttirunna = kalYYivuNteVnn + viSvasikkappeVttirunna
	$word=~/(.*)eVnnuvis(.*)/;
	$word=$1."eVnn\tunk";
	$word1="vis".$2;
	}

	if($word=~/AlZtIs(.*)\t/) {  	# kAlZtIspUnZ = kAlZ + tIspUNZ
	$word=~/(.*)AlZtIs(.*)/;
	$word=$1."AlZ\tunk";
	$word1="tIs".$2;
	}

	if($word=~/AlZka(.*)\t/) {  	# kAlZtIspUnZ = kAlZ + tIspUNZ
	$word=~/(.*)AlZka(.*)/;
	$word=$1."AlZ\tunk";
	$word1="ka".$2;
	}

	if($word=~/atIs(.*)\t/) {  	# arutIspUnZ = ara + tIspUNZ
	$word=~/(.*)atIs(.*)/;
	$word=$1."a\tunk";
	$word1="tIs".$2;
	}

	if($word=~/rYuvarZR(.*)\t/) {  	# nUrYuvarZRaM = nUrY + varZRaM
	$word=~/(.*)rYuvarZR(.*)/;
	$word=$1."rY\tunk";
	$word1="varZR".$2;
	}

	if($word=~/utIs(.*)\t/) {  	# arutIspUnZ = ara + tIspUNZ
	$word=~/(.*)utIs(.*)/;
	$word=$1."a\tunk";
	$word1="tIs".$2;
	}

	if($word=~/rateb(.*)\t/) {  	# oVnnaratebilYZspUNZ = oVnnara + tebilYZspUNZ
	$word=~/(.*)rateb(.*)/;
	$word=$1."ra\tunk";
	$word1="teb".$2;
	}

	if($word=~/akkap(.*)\t/) {  	# arakkapp = ara + kapp
	$word=~/(.*)akkap(.*)/;
	$word=$1."a\tunk";
	$word1="kap".$2;
	}

	if($word=~/pillA(.*)\t/) {  	# AlYZppArZppillAwwa = AlYZppArZpp + illAwwa
	$word=~/(.*)pillA(.*)/;
	$word=$1."p\tunk";
	$word1="illA".$2;
	}

	if($word=~/nwiwwu(.*)\t/) {  	# nInwiwwutikkunna = nInwi+wutikkunna
	$word=~/(.*)nwiwwu(.*)/;
	$word=$1."nwi\tunk";
	$word1="wu".$2;
	}

	if($word=~/([A-z])([n]+)AvA(.*)\t/) { # avagaNikkAnAvAwwa = avagaNikkAnZ + AvAwwa
	$word=~/(.*)([n]+)AvA(.*)/;
	$word=$1.$2."Z\tunk";
	$word1="AvA".$3;
	}

	if($word=~/([A-z]+)vumAyiri(.*)\t/) { # AsvAxyakaravumAyirikkuM = AsvAxyakaravuM + AyirikkuM
	$word=~/(.*)vumAyiri(.*)/;
	$word=$1."vuM\tunk";
	$word1="Ayiri".$2;
	}

	if($word=~/([A-z]+)amurYaf(.*)\t/) { # cariwramurYaffunna = cariwraM + uraffunna
	$word=~/(.*)amurYaf(.*)/;
	$word=$1."aM\tunk";
	$word1="urYaf".$2;
	}

	if($word=~/ekkitt‌(.*)\t/) { # cariwramurYaffunna = cariwraM+uraffunna
	$word=~/(.*)ekkitt‌(.*)/;
	$word=$1."ekk\tunk";
	$word1="itt".$2;
	}

#n---- oVrumaNikkUrZvay‌kkuka
	if($word=~/umaNikkUrZva(.*)/) {  	##
	$word=~/(.*)umaNikkUrZva(.*)/;
	$word=$1."u\tunk";
	$word1="maNikkUrZ\tunk";
	$word2="va".$2;
	}

	if($word=~/([A-z]+)eVNNaM\t/) { ##mUnneVnnaM = mUnn + eVnnaM 
	$word=~/(.*)eVNNaM(.*)/;
	$word=$1."\tunk";
	$word1="eVNNaM".$2;
	}

	if($word=~/reVww(.*)\t/) { ##kUnUreVwwunna = kUnUrZ+eVwwunna
	$word=~/(.*)reVww(.*)/;
	$word=$1."rZ\tunk";
	$word1="eVww".$2;
	}

	if($word=~/wAyari(.*)\t/) { ##ceVrYuwAyariFFaw‌ = ceVrYuwAyi + ariFFaw‌
	$word=~/(.*)wAyari(.*)/;
	$word=$1."wAyi\tunk";
	$word1="ari".$2;
	}

	if($word=~/wilari(.*)\t/) { ##nIlYawwilariyuka = nIlYawwilZ+ariyuka
	$word=~/(.*)wilari(.*)/;
	$word=$1."wilZ\tunk";
	$word1="ari".$2;
	}

	if($word=~/wwuninn(.*)\t/) { ##mettupAlYayawwuninn = mettupAlYayaww+ninn
	$word=~/(.*)wwuninn(.*)/;
	$word=$1."ww\tunk";
	$word1="ninn".$2;
	}

	if($word=~/mAyir(.*)\t/) {  	# gowramAyirunnu = gowraM+Ayirunnu
	$word=~/(.*)mAyir(.*)/;
	$word=$1."M\tunk";
	$word1="Ayir".$2;
	}

	if($word=~/ugrAM(.*)\t/) {  	# irunnUrYrYanpawugrAM = irunnUrYrYanpaw + grAM
	$word=~/(.*)ugrAM(.*)/;
	$word=$1."\tunk";
	$word1="grAM".$2;
	}

	if($word=~/ileVwwiyitt(.*)\t/) {  	# vakkileVwwiyittuNteVfkiluM = vakkilZ + eVwwiyitt + uNteVfkiluM
	$word=~/(.*)ileVwwiyitt(.*)/;
	$word=$1."Z\tunk";
	$word1="eVwwiyitt\tunk";
#	$word2="uNteV".$2;
	}

	if($word=~/([A-z]+)SeRaM\t/) { ##veVnwaSeRaM = veVnwa + SeRaM 
	$word=~/(.*)SeRaM(.*)/;
	$word=$1."\tunk";
	$word1="SeRaM".$2;
	}
	
	if($word=~/unnaviXa(.*)\t/) { #wayArYAkkunnaviXaM = wayArYAkkunna + viXaM
	$word=~/(.*)unnaviXa(.*)/;
	$word=$1."unna\tunk";
	$word1="viXa".$2;
	}
	
	if($word=~/uviXa(.*)\t/) { #oVruviXaM = oVru + viXaM
	$word=~/(.*)uviXa(.*)/;
	$word=$1."u\tunk";
	$word1="viXa".$2;
	}

	if($word=~/ttivacc(.*)\t/) { ##purattivaccirikkunna = puratti + vaccirikkunna 
	$word=~/(.*)ttivacc(.*)/;
	$word=$1."tti\tunk";
	$word1="vacc".$2;
	}

	if($word=~/uvacc(.*)\t/) { ##masAlakkUttuvacc = masAlakkUtt + vacc, PorZkkuvacc‌ =PorZkk + vacc
	$word=~/(.*)uvacc(.*)/;
	$word=$1."\tunk";
	$word1="vacc".$2;
	}

	if($word=~/Zvacc(.*)\t/) { ##masAlakkUttuvacc = masAlakkUtt + vacc, PorZkkuvacc‌ =PorZkk + vacc
	$word=~/(.*)Zvacc(.*)/;
	$word=$1."Z\tunk";
	$word1="vacc".$2;
	}

	if($word=~/wwukor(.*)\t/) { ##wIkkanalZvacc = wIkkanalZ + koruka
	$word=~/(.*)wwukor(.*)/;
	$word=$1."ww\tunk";
	$word1="kor".$2;
	}

	if($word=~/Ayariyuka(.*)\t/) { 	# poVtiyAyariyuka = poVtiyAyi + ariyuka , kaRaNaffalYAyariyuka = kaRaNaffalYAyi + Ayariyuka
	$word=~/(.*)Ayariyuka(.*)/;
	$word=$1."Ayi\tunk";
	$word1="ariyuka".$2;
	}

	if($word=~/aspUNZ(.*)\t/) {  	# araspUNZ = ara + spUNZ
	$word=~/(.*)aspUNZ(.*)/;
	$word=$1."a\tunk";
	$word1="spUNZ".$2;
	}

	if($word=~/inumunn(.*)\t/) {  	# wwinumunn = ara + spUNZ
	$word=~/(.*)inumunn(.*)/;
	$word=$1."in\tunk";
	$word1="munn".$2;
	}

	if($word=~/MpoV(.*)\t/) {  	# jIrakaMpoVticcaw‌ = jIrakaM + poVticcaw‌
	$word=~/(.*)MpoV(.*)/;
	$word=$1."M\tunk";
	$word1="poV".$2;
	}

	if($word=~/ilit(.*)\t/) {  	# greviyilituka = greviyilZ + ituka
	$word=~/(.*)ilit(.*)/;
	$word=$1."ilZ\tunk";
	$word1="it".$2;
	}

	if($word=~/ittilYakk(.*)\t/) {  	# ittilYakkuka = itt + ilYakkuka
	$word=~/(.*)ittilYakk(.*)/;
	$word=$1."itt\tunk";
	$word1="ilYakk".$2;
	}

	if($word=~/FFuva(.*)\t/) {  	# ariFFuvaykk = ariFFu + vaykk
	$word=~/(.*)FFuva(.*)/;
	$word=$1."FF\tunk";
	$word1="va".$2;
	}

	if($word=~/ccaveVlYlYawwilitt(.*)\t/) {  	# wilYaccaveVlYlYawwilitt‌ = wilYacca + veVlYlYawwilZ + itt
	$word=~/(.*)ccaveVlYlYawwilitt(.*)/;
	$word=$1."cca\tunk";
	$word1="veVlYlYawwilZ\tunk";
	$word2="itt".$2;
	}

	if($word=~/erYrYavum(.*)\t/) {  # woVlikalYa = woVli + kalYa
	$word=~/(.*)erYrYavum(.*)/;
	$word=$1."erYrYavuM\tunk";
	$word1=$2;
	}

	if($word=~/teVnnuNtA(.*)\t/) {  # peVtteVnnuNtAyawalla = woVli + kalYa
	$word=~/(.*)teVnnuNtA(.*)/;
	$word=$1."teVnn\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/FFuva(.*)\t/) {  	# ariFFuvaykk = ariFFu + vaykk
	$word=~/(.*)FFuva(.*)/;
	$word=$1."FF\tunk";
	$word1="va".$2;
	}

	if($word=~/fiva(.*)\t/) {  	# pulYYuffivaykk = pulYYuffi + vaykk
	$word=~/(.*)fiva(.*)/;
	$word=$1."fi\tunk";
	$word1="va".$2;
	}

	if($word=~/ffalYAkkivayk(.*)\t/) {  	# kaRaNaffalYAkkivaykkuka = kaRaNaffalYZ + Akki + vaykkuka
	$word=~/(.*)ffalYAkkivayk(.*)/;
	$word=$1."ffalYZ\tunk";
	$word1="Akki\tunk";
	$word2="vayk".$2;
	}

	if($word=~/aBAga(.*)\t/) {  	# murYiccaBAgaww‌ = murYicca + BAgaww‌ 
	$word=~/(.*)aBAga(.*)/;
	$word=$1."a\tunk";
	$word1="BAga".$2;
	}

	if($word=~/ccuva(.*)\t/) {  	# mUppiccuvaykkuka = mUppicc + vaykkuka , moVriccuvacca = moVricc + vacca
	$word=~/(.*)ccuva(.*)/;
	$word=$1."cc\tunk";
	$word1="va".$2;
	}

	if($word=~/AlYakaRaNa(.*)\t/) {  	# savAlYakaRaNaM = savAlYa + kaRaNaM
	$word=~/(.*)AlYakaRaNa(.*)/;
	$word=$1."AlYa\tunk";
	$word1="kaRaNa".$2;
	}

	if($word=~/kalYAkk(.*)\t/) {  	# urulYakalYAkkuka = urulYakalYZ + Akkuka
	$word=~/(.*)kalYAkk(.*)/;
	$word=$1."kalYZ\tunk";
	$word1="Akk".$2;
	}

	if($word=~/maNtAkqwi(.*)\t/) {  	# dayamaNtAkqwiyilZ = AkqwiyilZ + AkqwiyilZ
	$word=~/(.*)maNtAkqwi(.*)/;
	$word=$1."maNt\tunk";
	$word1="Akqwi".$2;
	}

	if($word=~/ONZnirYamAk(.*)\t/) {  	# brONZnirYamAkunnawuvareV = brONZ + nirYaM + AkunnawuvareV
	$word=~/(.*)ONZnirYamAk(.*)/;
	$word=$1."ONZ\tunk";
	$word1="nirYaM\tunk";
	$word2="Ak".$2;
	}

	if($word=~/eVNNayoVlYY(.*)\t/) {  	# eVNNayoVlYYicc = eVNNa + oVlYYicc
	$word=~/(.*)eVNNayoVlYY(.*)/;
	$word=$1."eVNNa\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/kUttoVlYY(.*)\t/) {  	# kUttoVlYYicc = kUtt + oVlYYicc
	$word=~/(.*)kUttoVlYY(.*)/;
	$word=$1."kUtt\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/ttiyAya(.*)\t/) {  	# kattiyAyawinu = katti + Ayawinu
	$word=~/(.*)ttiyAya(.*)/;
	$word=$1."tti\tunk";
	$word1="Aya".$2;
	}

	if($word=~/ilayit(.*)\t/) {  	# wUSanilayitunpolYZ = wUSanila + itunpolYZ
	$word=~/(.*)ilayit(.*)/;
	$word=$1."ila\tunk";
	$word1="it".$2;
	}

	if($word=~/iloVru(.*)\t/) {  	# awiloVru = awilZ + oVru
	$word=~/(.*)iloVru(.*)/;
	$word=$1."ilZ\tunk";
	$word1="oVru".$2;
	}

	if($word=~/wwuva(.*)\t/) {  	# kuwirZwwuvaykkuka = kuwirZww + vaykkuka
	$word=~/(.*)wwuva(.*)/;
	$word=$1."ww\tunk";
	$word1="va".$2;
	}

	if($word=~/veVjAyi(.*)\t/) {  	# veVjAyirikkuM = veVj + AyirikkuM 
	$word=~/(.*)veVjAyi(.*)/;
	$word=$1."veVj\tunk";
	$word1="Ayi".$2;
	}

	if($word=~/mamAkk(.*)\t/) {  	# keVfkemamAkkunna = keVfkemaM + Akkunna 
	$word=~/(.*)mamAkk(.*)/;
	$word=$1."maM\tunk";
	$word1="Akk".$2;
	}

	if($word=~/ffalYiw(.*)\t/) {  	# viBavaffalYiwA = viBavaffalYZ + iwA 
	$word=~/(.*)ffalYiw(.*)/;
	$word=$1."ffalYZ\tunk";
	$word1="iw".$2;
	}

	if($word=~/kattiwwe(.*)\t/) {  	# kattiwweffAppAlZ = katti + weffAppAlZ 
	$word=~/(.*)kattiwwe(.*)/;
	$word=$1."katti\tunk";
	$word1="we".$2;
	}

	if($word=~/ccumArYrY(.*)\t/) {  	# veviccumArYrYuka = vevicc + mArYrYuka 
	$word=~/(.*)ccumArYrY(.*)/;
	$word=$1."cc\tunk";
	$word1="mArYrY".$2;
	}

	if($word=~/ccukUti(.*)\t/) {  	# kurYaccukUti = kurYacc + kkUti 
	$word=~/(.*)ccukUti(.*)/;
	$word=$1."cc\tunk";
	$word1="kUti".$2;
	}

	if($word=~/rZwwara(.*)\t/) {  	# cerZwwaracc = cerZww + aracc 
	$word=~/(.*)rZwwara(.*)/;
	$word=$1."rZww\tunk";
	$word1="ara".$2;
	}

	if($word=~/Akkiva(.*)\t/) {  	# vqwwiyAkkivaykkuka = vqwwiyAkki + vaykkuka 
	$word=~/(.*)Akkiva(.*)/;
	$word=$1."Akki\tunk";
	$word1="va".$2;
	} 

	if($word=~/oVnnilYak(.*)\t/) {  	# oVnnilYakkiya = oVnn + ilYakkiya 
	$word=~/(.*)oVnnilYak(.*)/;
	$word=$1."oVnn\tunk";
	$word1="ilYak".$2;
	} 

	if($word=~/MkurYacc‌(.*)\t/) {  	# kanaMkurYacc‌ = kanaM + kurYacc‌ 
	$word=~/(.*)MkurYacc‌(.*)/;
	$word=$1."M\tunk";
	$word1="kurYacc‌".$2;
	}  

	if($word=~/ilZvacc(.*)\t/) {  	# arakallilZvacc‌ = arakallilZ + vacc 
	$word=~/(.*)ilZvacc(.*)/;
	$word=$1."ilZ\tunk";
	$word1="vacc".$2;
	}   

	if($word=~/ucerZ(.*)\t/) {  	# arappucerZww‌ = arapp + cerZww 
	$word=~/(.*)ucerZ(.*)/;
	$word=$1."\tunk";
	$word1="cerZ".$2;
	}   

	if($word=~/ikkoVNt(.*)\t/) {  	# ilYakkikkoVNtirikkaNaM = ilYakki + koVNtirikkaNaM 
	$word=~/(.*)ikkoVNt(.*)/;
	$word=$1."i\tunk";
	$word1="koVNt".$2;
	}    

	if($word=~/ccukalYY(.*)\t/) {  	# piticcukalYYiFFAlZ = piticc + kalYYiFFAlZ 
	$word=~/(.*)ccukalYY(.*)/;
	$word=$1."cc\tunk";
	$word1="kalYY".$2;
	} 

	if($word=~/alitt(.*)\t/) {  	# kUnwalitt‌ = kUnwalZ + itt
	$word=~/(.*)alitt(.*)/;
	$word=$1."alZ\tunk";
	$word1="itt".$2;
	}

	if($word=~/alYitt(.*)\t/) {  	# kUnwalitt‌ = kUnwalZ + itt
	$word=~/(.*)alYitt(.*)/;
	$word=$1."alYZ\tunk";
	$word1="itt".$2;
	}

	if($word=~/mUtive(.*)\t/) {  	# mUtiveNaM = mUti + veNaM
	$word=~/(.*)mUtive(.*)/;
	$word=$1."mUti\tunk";
	$word1="ve".$2;
	}

	if($word=~/rYive(.*)\t/) {  	# mArYrYiveNaM = mArYrYi + veNaM
	$word=~/(.*)rYive(.*)/;
	$word=$1."rYi\tunk";
	$word1="ve".$2;
	}

	if($word=~/raNtumUnnu(.*)\t/) {  	# raNtumUnnu = raNt + mUnn
	$word=~/(.*)raNtumUnnu(.*)/;
	$word=$1."raNt\tunk";
	$word1="mUnn".$2;
	}

	if($word=~/eVnnivayitt‌(.*)\t/) {  	# eVnnivayitt‌ = eVnniva + itt‌
	$word=~/(.*)eVnnivayitt‌(.*)/;
	$word=$1."eVnniva\tunk";
	$word1="itt‌".$2;
	}

	if($word=~/ilawwuNakki(.*)\t/) {  	# veVyilawwuNakki = veVyilaww + uNakki
	$word=~/(.*)ilawwuNakki(.*)/;
	$word=$1."ilaww\tunk";
	$word1="uNakki".$2;
	}

	if($word=~/iyumoVnnu(.*)\t/) {  	# ruciyumoVnnu = ruciyuM + oVnn
	$word=~/(.*)iyumoVnnu(.*)/;
	$word=$1."iyuM\tunk";
	$word1="oVnn".$2;
	}

	if($word=~/ffalYAyAlo(.*)\t/) {  	# viBavaffalYAyAlo = viBavaffalYZ + AyAlo
	$word=~/(.*)ffalYAyAlo(.*)/;
	$word=$1."ffalYZ\tunk";
	$word1="AyAlo".$2;
	}

	if($word=~/Zkilo(.*)\t/) {  	# kAlZkilo = kAlZ + kilo
	$word=~/(.*)Zkilo(.*)/;
	$word=$1."Z\tunk";
	$word1="kilo".$2;
	}

	if($word=~/ayaraccakarYi(.*)\t/) {  	# weffayaraccakarYi = weffa + aracca + karYi
	$word=~/(.*)ayaraccakarYi(.*)/;
	$word=$1."a\tunk";
	$word1="aracca\tunk";
	$word2="karYi".$2;
	}

	if($word=~/amoVlYY(.*)\t/) {  	# veVlYlYamoVlYYicc‌ = veVlYlYaM + oVlYYicc
	$word=~/(.*)amoVlYY(.*)/;
	$word=$1."aM\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/yiloVlYY(.*)\t/) {  	# karYiyiloVlYYicc = karYiyilZ + oVlYYicc
	$word=~/(.*)yiloVlYY(.*)/;
	$word=$1."yilZ\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/loVlYY(.*)\t/) {  	# pAloVlYYicc = pAlZ + oVlYYicc
	$word=~/(.*)loVlYY(.*)/;
	$word=$1."lZ\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/noVlYY(.*)\t/) {  	# mInoVlYYicc‌ = mInZ + oVlYYicc
	$word=~/(.*)noVlYY(.*)/;
	$word=$1."nZ\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/ameVfki(.*)\t/) {  	# AvaSyameVfkilZ = AvaSyaM + eVfkilZ
	$word=~/(.*)ameVfki(.*)/;
	$word=$1."aM\tunk";
	$word1="eVfki".$2;
	}

	if($word=~/cawaccularZwwi(.*)\t/) {  	# cawaccularZwwiyaw‌ = cawacc + ularZwwiyaw
	$word=~/(.*)cawaccularZwwi(.*)/;
	$word=$1."cawacc\tunk";
	$word1="ularZwwi".$2;
	}

	if($word=~/eVNNakUti(.*)\t/) {  	# eVNNakUti = eVNNa + kUti mulYakupoVticcaw‌
	$word=~/(.*)eVNNakUti(.*)/;
	$word=$1."eVNNa\tunk";
	$word1="kUti".$2;
	}

	if($word=~/lYakupoVticcaw(.*)\t/) {  	# mulYakupoVticcaw‌ = mulYak + poVticcaw 
	$word=~/(.*)lYakupoVticcaw(.*)/;
	$word=$1."lYak\tunk";
	$word1="poVticcaw".$2;
	}

	if($word=~/lYlYappeppar(.*)\t/) {  	# veVlYlYappepparZ = veVlYlYa + pepparZ 
	$word=~/(.*)lYlYappeppar(.*)/;
	$word=$1."lYlYa\tunk";
	$word1="peppar".$2;
	}

	if($word=~/ceVrYiyakaR(.*)\t/) {  	# ceVrYiyakaRaNaM = ceVrYiya + kaRaNaM 
	$word=~/(.*)ceVrYiyakaR(.*)/;
	$word=$1."ceVrYiya\tunk";
	$word1="kaR".$2;
	}

	if($word=~/umitt(.*)\t/) {  	# pulYiyumitt = pulYiyuM + itt‌
	$word=~/(.*)umitt(.*)/;
	$word=$1."uM\tunk";
	$word1="itt‌".$2;
	}

	if($word=~/pitt(.*)\t/) {  	# pulYiyumitt = upp + itt‌
	$word=~/(.*)pitt(.*)/;
	$word=$1."p\tunk";
	$word1="itt‌".$2;
	}

	if($word=~/kkaayala(.*)\t/) {  	# uNakkaayala = uNakka + ayala
	$word=~/(.*)kkaayala(.*)/;
	$word=$1."kka\tunk";
	$word1="ayala".$2;
	}

	if($word=~/AyikkalYY(.*)\t/) {  	# iRtakkArAyikkalYYiFFu = iRtakkArAyi + kalYYiFFu
	$word=~/(.*)AyikkalYY(.*)/;
	$word=$1."Ayi\tunk";
	$word1="kalYY".$2;
	}

	if($word=~/erYeVyAN‌\t/) {  	# erYeVyAN‌ = erYeV + AN
	$word=~/AyikkalYY/;
	$word=$1."erYeV\tunk";
	$word1="AN".$2;
	}

	if($word=~/ruvamAkunnawuvareV(.*)\t/) {  	# nUlZpparuvamAkunnawuvareV = nUlZpparuvanUlZpparuvam + Akunnaw + vareV
	$word=~/(.*)ruvamAkunnawuvareV(.*)/;
	$word=$1."ruvaM\tunk";
	$word1="Akunnaw\tunk";
	$word2="vareV".$2;
	}

	if($word=~/yyoVlYY(.*)\t/) {  	# neVyyoVlYYicc‌ = neVyy + oVlYYicc
	$word=~/(.*)yyoVlYY(.*)/;
	$word=$1."yy\tunk";
	$word1="oVlYY".$2;
	}

	if($word=~/annapAwra(.*)\t/) {  	# parannapAwrawwilekk‌ = paranna + pAwrawwilekk
	$word=~/(.*)annapAwra(.*)/;
	$word=$1."anna\tunk";
	$word1="pAwra".$2;
	}

	if($word=~/(.*)kkAnAvaS(.*)\t/) {  	# varYukkAnAvaSyawwin = varYukkAnZ + AvaSyawwin
	$word=~/(.*)kkAnAvaS(.*)/;
	$word=$1."kkAnZ\tunk";
	$word1="AvaS".$2;
	}

	if($word=~/(.*)ccaveVlYlY(.*)\t/) {  	# wilYaccaveVlYlYaM = varYwilYaccaukkAnZ + veVlYlYaM
	$word=~/(.*)ccaveVlYlY(.*)/;
	$word=$1."cca\tunk";
	$word1="veVlYlY".$2;
	}

	if($word=~/(.*)mukkalZkapp(.*)\t/) {  	# mukkalZkapp = mukkalZ + kapp
	$word=~/(.*)mukkalZkapp(.*)/;
	$word=$1."mukkalZ\tunk";
	$word1="kapp".$2;
	}   

	if($word=~/AracerZ(.*)\t/) {  	# paFcasAracerZww = paFcasAra + cerZww 
	$word=~/(.*)AracerZ(.*)/;
	$word=$1."Ara\tunk";
	$word1="cerZ".$2;
	}  

	if($word=~/AkkiyeVtuk(.*)\t/) {  	# vattawwilAkkiyeVtukkuka = vattawwilAkki + eVtukkuka 
	$word=~/(.*)AkkiyeVtuk(.*)/;
	$word=$1."Akki\tunk";
	$word1="eVtuk".$2;
	}   

	if($word=~/ivayitu(.*)\t/) {  	# eVnnivayituka = eVnniva + ituka 
	$word=~/(.*)ivayitu(.*)/;
	$word=$1."iva\tunk";
	$word1="itu".$2;
	}   

	if($word=~/wEroVlYYikk(.*)\t/) {  	# wEroVlYYikkuka = wEr + oVlYYikkuka  
	$word=~/(.*)wEroVlYYikk(.*)/;
	$word=$1."wEr\tunk";
	$word1="oVlYYikk".$2;
	}   

	if($word=~/pulYiccamm(.*)\t/) {  	# vAlYanZpulYiccammanwiyuM = vAlYanZpulYi + cammanwiyuM  
	$word=~/(.*)pulYiccamm(.*)/;
	$word=$1."pulYi\tunk";
	$word1="camm".$2;
	}  

	if($word=~/ccalafka(.*)\t/) {  	# vaccalafkaricc = vacc + alafkaricc  
	$word=~/(.*)ccalafka(.*)/;
	$word=$1."cc\tunk";
	$word1="alafka".$2;
	}  

	if($word=~/YYukivAr(.*)\t/) {  	# kalYYukivAruka = kalYYuki + vAruka  
	$word=~/(.*)YYukivAr(.*)/;
	$word=$1."YYuki\tunk";
	$word1="vAr".$2;
	}   

	if($word=~/aniyuNtA(.*)\t/) {  	# layAniyuNtAkki = layAni + uNtAkki  , lAyaniyuNtAkkuka
	$word=~/(.*)aniyuNtA(.*)/;
	$word=$1."ani\tunk";
	$word1="uNtA".$2;
	}   

	if($word=~/pirYrYexiva(.*)\t/) {  	# pirYrYexivasaM = pirYrYe + xivasaM  
	$word=~/(.*)pirYrYexiva(.*)/;
	$word=$1."pirYrYe\tunk";
	$word1="xiva".$2;
	}   

	if($word=~/lYeVtuw(.*)\t/) {  	# bOlYeVtuww = bOlY + eVtuww  
	$word=~/(.*)lYeVtuw(.*)/;
	$word=$1."lY\tunk";
	$word1="eVtuw".$2;
	}

	if($word=~/rYeVtuw(.*)\t/) {  	# kavarYeVtuww‌ = kavarZ + eVtuww  
	$word=~/(.*)rYeVtuw(.*)/;
	$word=$1."rZ\tunk";
	$word1="eVtuw".$2;
	}  

	if($word=~/ninnirYrYuvIl(.*)\t/) {  	# ninnirYrYuvIlYYunna = ninn + irYrYuvIlYYunna  
	$word=~/(.*)ninnirYrYuvIl(.*)/;
	$word=$1."ninn\tunk";
	$word1="irYrYuvIl".$2;
	}  

	if($word=~/rYrYililaccArZ(.*)\t/) {  	# kArYrYililaccArZwwilZ = kArYrYilZ + ilaccArZwwilZ  
	$word=~/(.*)rYrYililaccArZ(.*)/;
	$word=$1."rYrYilZ\tunk";
	$word1="ilaccArZ".$2;
	}   

	if($word=~/eVnwurasa(.*)\t/) {  	# eVnwurasamAN‌ = eVnw + rasamAN  
	$word=~/(.*)eVnwurasa(.*)/;
	$word=$1."eVnw\tunk";
	$word1="rasa".$2;
	}    

	if($word=~/malYYakaN(.*)\t/) {  	# malYYakaNtu = malYYa + kaNtu  
	$word=~/(.*)malYYakaN(.*)/;
	$word=$1."malYYa\tunk";
	$word1="kaN".$2;
	}     

	if($word=~/kkAneVnweV(.*)\t/) {  	# koVrYikkAneVnweVfkiluM = koVrYikkAnZ + eVnweVfkiluM  
	$word=~/(.*)kkAneVnweV(.*)/;
	$word=$1."kkAnZ\tunk";
	$word1="eVnweV".$2;
	}       

	if($word=~/xXyamAkatt(.*)\t/) {  	# rucivEvixXyamAkatteV = rucivEvixXyaM + AkatteV  
	$word=~/(.*)xXyamAkatt(.*)/;
	$word=$1."xXyaM\tunk";
	$word1="Akatt".$2;
	}       

	if($word=~/kkAnAv(.*)\t/) {  	# sUkRikkAnAvunna = sUkRikkAnZ + Avunna  
	$word=~/(.*)kkAnAv(.*)/;
	$word=$1."kkAnZ\tunk";
	$word1="Av".$2;
	}       

	if($word=~/AvunnoVru(.*)\t/) {  	# iRtamAvunnoVru = iRtamAvunna + oVru  
	$word=~/(.*)AvunnoVru(.*)/;
	$word=$1."Avunna\tunk";
	$word1="oVru".$2;
	}       

	if($word=~/nilata(.*)\t/) {  	# tinnilatacc‌ = tinnilZ + atacc  
	$word=~/(.*)nilata(.*)/;
	$word=$1."nilZ\tunk";
	$word1="ata".$2;
	}       

	if($word=~/mAvitt‌(.*)\t/) {  	# mAvitt‌ = mAv + itt  
	$word=~/(.*)mAvitt‌(.*)/;
	$word=$1."mAv\tunk";
	$word1="itt".$2;
	}        
      
  	if($word=~/wwilYakkivay(.*)\t/) {  # cerZwwilYakkivaykkuka = cerZww + ilYakki + vaykkuka
	$word=~/(.*)wwilYakkivay(.*)/;
	$word=$1."ww\tunk";
	$word1="ilYakki\tunk";
	$word2="vay".$2;
	}

	if($word=~/umaNikkUr(.*)/) {  	##nAlumaNikkUrZ
	$word=~/(.*)umaNikkUr(.*)/;
	$word=$1."\tunk";
	$word1="maNikkUr".$2;
	}

	if($word=~/icawa(.*)/) {  	##iFcicawacca - iFci + cawacca
	$word=~/(.*)icawa(.*)/;
	$word=$1."i\tunk";
	$word1="cawa".$2;
	}

	if($word=~/ccilYak(.*)/) {  	##utaccilYakkuka - utacc + ilYakkuka
	$word=~/(.*)ccilYak(.*)/;
	$word=$1."cc\tunk";
	$word1="ilYak".$2;
	}

	if($word=~/AvikayarYrY(.*)/) {  	##AvikayarYrYuka - Avi + kayarYrYuka
	$word=~/(.*)AvikayarYrY(.*)/;
	$word=$1."Avi\tunk";
	$word1="kayarYrY".$2;
	}

	if($word=~/ayAyiyeVt(.*)/) {  	##urulYayAyiyeVtuww - Avi + kayarYrYuka
	$word=~/(.*)ayAyiyeVt(.*)/;
	$word=$1."ayAyi\tunk";
	$word1="eVt".$2;
	}

	if($word=~/yaWeRtamuNt‌(.*)/) {  	##yaWeRtamuNt‌ - yaWeRtaM + uNt‌
	$word=~/(.*)yaWeRtamuNt‌(.*)/;
	$word=$1."yaWeRtaM\tunk";
	$word1="uNt".$2;
	}

	if($word=~/kkilleVnniri(.*)/) {  	##namukkilleVnnirikkeV - namukk + illeVnniri
	$word=~/(.*)kkilleVnniri(.*)/;
	$word=$1."kk\tunk";
	$word1="illeVnniri".$2;
	}

	if($word=~/oVruprameya(.*)/) {  	##oVruprameyavuM - oVru + prameyavuM
	$word=~/(.*)oVruprameya(.*)/;
	$word=$1."oVru\tunk";
	$word1="prameya".$2;
	}

	if($word=~/eweVnna(.*)/) {  	##sinimayeweVnna - sinimayew + eVnna 
	$word=~/(.*)eweVnna(.*)/;
	$word=$1."ew\tunk";
	$word1="eVnna".$2;
	}

	if($word=~/ANtinuSeRav(.*)/) {  	##arappawirYrYANtinuSeRavuM - arappawirYrYANtin + SeRavuM 
	$word=~/(.*)ANtinuSeRav(.*)/;
	$word=$1."ANtin\tunk";
	$word1="SeRav".$2;
	}

	if($word=~/illeVnna(.*)/) {  	##vannittilleVnnawAN - vannittilla + eVnnawAN
	$word=~/(.*)illeVnna(.*)/;
	$word=$1."illa\tunk";
	$word1="eVnna".$2;
	}

	if($word=~/wwiluNt(.*)/) {  	##grAmawwiluNtAkkunna - grAmawwilZ + uNtAkkunna  
	$word=~/(.*)wwiluNt(.*)/;
	$word=$1."wwilZ\tunk";
	$word1="uNt".$2;
	}

	if($word=~/wvamillAweV(.*)/) {  	##awiBAvukawvamillAweV - awiBAvukawvaM + illAweV  
	$word=~/(.*)wvamillAweV(.*)/;
	$word=$1."wvaM\tunk";
	$word1="illAweV".$2;
	}

	if($word=~/wayillAweVyAN(.*)/) {  	##asvABAvikawayillAweVyAN - asvABAvikawa + illAweVyAN  
	$word=~/(.*)wayillAweVyAN(.*)/;
	$word=$1."wa\tunk";
	$word1="illAweV\tunk";
	$word2="AN".$2;
	}

	if($word=~/lYlYawAkk(.*)/) {  	##unmeRamulYlYawAkkunnu - unmeRamulYlYaw + Akkunnu  
	$word=~/(.*)lYlYawAkk(.*)/;
	$word=$1."lYlYaw\tunk";
	$word1="Akk".$2;
	}

	if($word=~/kkuveVtuMpo(.*)/) {  	##karikkuveVttuMpoleV - karikk + veVttuM + poleV  
	$word=~/(.*)kkuveVtuMpo(.*)/;
	$word=$1."kk\tunk";
	$word1="veVtu\tunk";
	$word2="po".$2;
	}

	if($word=~/ttimArY(.*)/) {  	##veVttimArYrYuM - veVtti + mArYrYuM  
	$word=~/(.*)ttimArY(.*)/;
	$word=$1."tti\tunk";
	$word1="mArY".$2;
	}

	if($word=~/marYrYoVnnumall(.*)/) {  	##marYrYoVnnumalla - veVtti + mArYrYuM  
	$word=~/(.*)marYrYoVnnumall(.*)/;
	$word=$1."marYrYoVnnuM\tunk";
	$word1="all".$2;
	}

	if($word=~/nXiyAyir(.*)/) {  	##jIviwaganXiyAyirunnu - jIviwaganXi + Ayirunnu  
	$word=~/(.*)nXiyAyir(.*)/;
	$word=$1."nXi\tunk";
	$word1="Ayir".$2;
	}

	if($word=~/aNiyati(.*)/) {  	##maNiyatikkunnu - maNi + atikkunnu  
	$word=~/(.*)aNiyati(.*)/;
	$word=$1."aNi\tunk";
	$word1="ati".$2;
	}

	if($word=~/allAwwoVru(.*)/) {  	##vallAwwoVru - vallAwwa + oVru  
	$word=~/(.*)allAwwoVru(.*)/;
	$word=$1."allAwwa\tunk";
	$word1="oVru".$2;
	}

	if($word=~/iwawvamuNtAkk(.*)/) {  	##cirapariciwawvamuNtAkkunna - cirapariciwawvaM + uNtAkkunna  
	$word=~/(.*)iwawvamuNtAkk(.*)/;
	$word=$1."iwawvaM\tunk";
	$word1="uNtAkk".$2;
	}

	if($word=~/wwilupayogi(.*)/) {  	##rUpawwilupayogikkAM - wwilZ + upayogikkAM  
	$word=~/(.*)wwilupayogi(.*)/;
	$word=$1."wwilZ\tunk";
	$word1="upayogi".$2;
	}

	if($word=~/nIrirYakk(.*)/) {  	##nIrirYakk - nIrZ + irYakk  
	$word=~/(.*)nIrirYakk(.*)/;
	$word=$1."nIrZ\tunk";
	$word1="irYakk".$2;
	}

	if($word=~/kUttiyaracc(.*)/) {  	##kUttiyaracc - nIrZ + irYakk  
	$word=~/(.*)kUttiyaracc(.*)/;
	$word=$1."kUtti\tunk";
	$word1="aracc".$2;
	}

	if($word=~/cerZwwukAcciya(.*)/) {  	##cerZwwukAcciya - cerZww + kAcciya  
	$word=~/(.*)cerZwwukAcciya(.*)/;
	$word=$1."kAcciya\tunk";
	$word1="aracc".$2;
	}

	if($word=~/morukUtti(.*)/) {  	##morukUtti - cerZww + kAcciya  
	$word=~/(.*)morukUtti(.*)/;
	$word=$1."mor\tunk";
	$word1="kUtti".$2;
	}

	if($word=~/UNukalYY(.*)/) {  	##UNukalYYikkunnawu - UN + kalYYikkunnawu  
	$word=~/(.*)UNukalYY(.*)/;
	$word=$1."UN\tunk";
	$word1="kalYY".$2;
	}

	if($word=~/viSappuNtAk(.*)/) {  	##viSappuNtAkuM - UN + kalYYikkunnawu  
	$word=~/(.*)viSappuNtAk(.*)/;
	$word=$1."viSapp\tunk";
	$word1="uNtAk".$2;
	}

	if($word=~/gulYikacerZwwukalYYi(.*)/) {  	##gulYikacerZwwukalYYiccAlZ - gulYika + cerZww + kalYYiccAlZ
	$word=~/(.*)gulYika(.*)/;
	$word=$1."gulYika\tunk";
	$word1="cerZww\tunk";
	$word2="kalYYi".$2;
	}

	if($word=~/SakwivarZxXi(.*)/) {  	##SakwivarZxXippikkunna - Sakwi + varZxXippikkunna  
	$word=~/(.*)SakwivarZxXi(.*)/;
	$word=$1."Sakwi\tunk";
	$word1="varZxXi".$2;
	}

	if($word=~/woVNtukuwwi(.*)/) {  	##woVNtukuwwiyulYlYa - woVNt + kuwwiyulYlYa  
	$word=~/(.*)woVNtukuwwi(.*)/;
	$word=$1."woVNt\tunk";
	$word1="kuwwi".$2;
	}

	if($word=~/cUtupA(.*)/) {  	##cUtupAlZ - cUt + pAlZ  
	$word=~/(.*)cUtupA(.*)/;
	$word=$1."cUt\tunk";
	$word1="pA".$2;
	} 

	if($word=~/iluNteV(.*)/) {  	##munniluNteVnn - munnilZ + uNteVnn  
	$word=~/(.*)iluNteV(.*)/;
	$word=$1."ilZ\tunk";
	$word1="uNteV".$2;
	}

#jisha 12072014
	if($word=~/hikamArYrY(.*)/) {  	##sAmUhikamArYrYawwinAyi - sAmUhika + mArYrYawwinAyi  	
	$word=~/(.*)hikamArYrY(.*)/;
	$word=$1."hika\tunk";
	$word1="mArYrY".$2;
	}

	if($word=~/eVttuBAga(.*)/) {  	##eVttuBAgaM - eVtt + BAgaM
	$word=~/(.*)eVttuBAga(.*)/;
	$word=$1."eVtt\tunk";
	$word1="BAga".$2;
	}

	if($word=~/wwotumulYlYa(.*)/) {  	##BArawawwotumulYlYa - BArawawwotum + ulYlYa
	$word=~/(.*)wwotumulYlYa(.*)/;
	$word=$1."wwotuM\tunk";
	$word1="ulYlYa".$2;
	}

	if($word=~/lYiloVnnAya(.*)/) {  	##nagaraffalYiloVnnAya - nagaraffalYilZ + oVnnAya
	$word=~/(.*)lYiloVnnAya(.*)/;
	$word=$1."lYilZ\tunk";
	$word1="oVnnAya".$2;
	}

	if($word=~/fiwutaf(.*)/) {  	##mulYYaffiwutaffuka - mulYYaffi + wutaffuka
	$word=~/(.*)fiwutaf(.*)/;
	$word=$1."fi\tunk";
	$word1="wutaf".$2;
	}

	if($word=~/irawetu(.*)/) {  	##irawetunna - ira + wetunna
	$word=~/(.*)irawetu(.*)/;
	$word=$1."ira\tunk";
	$word1="wetu".$2;
	}

	if($word=~/vexameVnnaw(.*)/) {  	##AyurZvexameVnnaw - AyurZvexaXM + eVnnaw
	$word=~/(.*)vexameVnnaw(.*)/;
	$word=$1."vexaM\tunk";
	$word1="eVnnaw".$2;
	}

	if($word=~/lYIyavAswu(.*)/) {  	##keralYIyavAswukalayuM - keralYIya + vAswukalayuM
	$word=~/(.*)lYIyavAswu(.*)/;
	$word=$1."lYIya\tunk";
	$word1="vAswu".$2;
	}

	if($word=~/lYIyavAswu(.*)/) {  	##keralYIyavAswukalayuM - keralYIya + vAswukalayuM
	$word=~/(.*)lYIyavAswu(.*)/;
	$word=$1."lYIya\tunk";
	$word1="vAswu".$2;
	}

	if($word=~/AnAlYi(.*)/) {  	##wikkiwirakkAnAlYilla - wikkiwirakkAnZ + AlYillaAxyamarZppicca
	$word=~/(.*)AnAlYi(.*)/;
	$word=$1."AnZ\tunk";
	$word1="AlYi".$2;
	}

	if($word=~/Axyama(.*)/) {  	##AxyamarZppicca - AxyaM + arZppicca
	$word=~/(.*)Axyama(.*)/;
	$word=$1."AxyaM\tunk";
	$word1="a".$2;
	}

	if($word=~/eSAw(.*)/) {  	##cUteSAwirikkAnZ - cUt + eSAwirikkAnZ
	$word=~/(.*)eSAw(.*)/;
	$word=$1."\tunk";
	$word1="eSAw".$2;
	}

	if($word=~/kamAlY(.*)/) {  	##aXikamAlYukalYuM - aXikaM + AlYukalYuM
	$word=~/(.*)kamAlY(.*)/;
	$word=$1."kaM\tunk";
	$word1="AlY".$2;
	}

	if($word=~/ameVtu(.*)/) {  	##vIwameVtuww - vIwaM + eVtuww
	$word=~/(.*)ameVtu(.*)/;
	$word=$1."aM\tunk";
	$word1="eVtu".$2;
	}

	if($word=~/unnawara(.*)/) {  	##eVtukkAvunnawaraM - eVtukkAvunna + waraM
	$word=~/(.*)unnawara(.*)/;
	$word=$1."unna\tunk";
	$word1="wara".$2;
	}

	if($word=~/YappAkun(.*)/) {  	##urYappAkunpolYZ - urYapp + AkunpolYZ
	$word=~/(.*)YappAkun(.*)/;
	$word=$1."Yapp\tunk";
	$word1="Akun".$2;
	}

	if($word=~/pppAk(.*)/) {  	##upppAkawwin - upp + pAkawwin 
	$word=~/(.*)pppAk(.*)/;
	$word=$1."pp\tunk";
	$word1="pAk".$2;
	}

	if($word=~/nupp(.*)/) {  	##pAkawwinuppuM - pAkawwin + uppuM 
	$word=~/(.*)nupp(.*)/;
	$word=$1."n\tunk";
	$word1="upp".$2;
	}

	if($word=~/nwapar(.*)/) {  	##veVnwaparippilZ - veVnwa + parippilZ 
	$word=~/(.*)nwapar(.*)/;
	$word=$1."nwa\tunk";
	$word1="par".$2;
	}

	if($word=~/tukatti(.*)/) {  	##cuvatukattiyulYlYa - cuvat + kattiyulYlYa 
	$word=~/(.*)tukatti(.*)/;
	$word=$1."t\tunk";
	$word1="katti".$2;
	}

	if($word=~/ayitu(.*)/) {  	##cenayituka - cena + ituka 
	$word=~/(.*)ayitu(.*)/;
	$word=$1."a\tunk";
	$word1="itu".$2;
	}

	if($word=~/wwupok(.*)/) {  	##karYuwwupokuM - karYuww + pokuM 
	$word=~/(.*)wwupok(.*)/;
	$word=$1."ww\tunk";
	$word1="pok".$2;
	}

	if($word=~/poleVyuNtA(.*)/) {  	##poleVyuNtAkkuka - poleV + uNtAkkuka 
	$word=~/(.*)poleVyuNtA(.*)/;
	$word=$1."poleV\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/nwapar(.*)/) {  	##veVnwaparippilZ - veVnwa + parippilZ 
	$word=~/(.*)nwapar(.*)/;
	$word=$1."nwa\tunk";
	$word1="par".$2;
	}

	if($word=~/EroVlY(.*)/) {  	##wEroVlYYicc - wEr + oVlYYicc 
	$word=~/(.*)EroVlY(.*)/;
	$word=$1."Er\tunk";
	$word1="oVlY".$2;
	}

	if($word=~/ilakurY(.*)/) {  	##veppilakurYacc - veppila + kurYacc 
	$word=~/(.*)ilakurY(.*)/;
	$word=$1."ila\tunk";
	$word1="kurY".$2;
	}

	if($word=~/ppiccuveVc(.*)/) {  	##wilYappiccuveVcca - wilYappicc + veVcca 
	$word=~/(.*)ppiccuveVc(.*)/;
	$word=$1."ppicc\tunk";
	$word1="veVc".$2;
	}

	if($word=~/wIkurYa(.*)/) {  	##wIkurYacc - wI + kurYacc 
	$word=~/(.*)wIkurYa(.*)/;
	$word=$1."wI\tunk";
	$word1="kurYa".$2;
	}

	if($word=~/sAriyutu(.*)/) {  	##sAriyutuwwa - wI + kurYacc 
	$word=~/(.*)sAriyutu(.*)/;
	$word=$1."sAri\tunk";
	$word1="utu".$2;
	}

	if($word=~/noVralYYa(.*)/) {  	##awinoVralYYakilla - awinoVru + alYYakilla 
	$word=~/(.*)noVralYYa(.*)/;
	$word=$1."noVru\tunk";
	$word1="alYYa".$2;
	}

	if($word=~/nwamuNtAka(.*)/) {  	##canwamuNtAkaNamallo - canwaM + uNtAkaNamallo 
	$word=~/(.*)nwamuNtAka(.*)/;
	$word=$1."nwaM\tunk";
	$word1="uNtAka".$2;
	}

	if($word=~/ramuNtAk(.*)/) {  	##xvAramuNtAkki - xvAraM + uNtAkki 
	$word=~/(.*)ramuNtAk(.*)/;
	$word=$1."raM\tunk";
	$word1="uNtAk".$2;
	}

	if($word=~/ttiliru(.*)/) {  	##matiwwattiliruwwi - matiwwattilZ + iruwwi 
	$word=~/(.*)ttiliru(.*)/;
	$word=$1."ttilZ\tunk";
	$word1="iru".$2;
	}

	if($word=~/lYZkkita(.*)/) {  	##nirYaffalYZkkitayileV - nirYaffalYZkk + itayileV 
	$word=~/(.*)lYZkkita(.*)/;
	$word=$1."lYZkk\tunk";
	$word1="ita".$2;
	}

	if($word=~/innillAw(.*)/) {  	##innillAwwa - inn + illAwwa 
	$word=~/(.*)innillAw(.*)/;
	$word=$1."inn\tunk";
	$word1="illAw".$2;
	}

	if($word=~/ittillAwwav(.*)/) {  	##naRtappeVttittillAwwavarZkk - naRtappeVttitt + illAwwavarZkk 
	$word=~/(.*)ittillAwwav(.*)/;
	$word=$1."itt\tunk";
	$word1="illAwwav".$2;
	}

	if($word=~/amuNarZ(.*)/) {  	##kurYrYaboXamuNarZwwiya - kurYrYaboXaM + uNarZwwiya 
	$word=~/(.*)amuNarZ(.*)/;
	$word=$1."aM\tunk";
	$word1="uNarZ".$2;
	}

	if($word=~/arZkkoVrikk(.*)/) {  	##muwirZnnavarZkkoVrikkaluM - muwirZnnavarZkk + oVrikkaluM 
	$word=~/(.*)arZkkoVrikk(.*)/;
	$word=$1."arZkk\tunk";
	$word1="oVrikk".$2;
	}

	if($word=~/oVrap(.*)/) {  	##oVrappUppanZ - oVru + appUppanZ	 
	$word=~/(.*)oVrap(.*)/;
	$word=$1."oVru\tunk";
	$word1="ap".$2;
	}

	if($word=~/tayoVwu(.*)/) {  	##pAvAtayoVwukkippiticc - pAvAta + oVwukkippiticc	 
	$word=~/(.*)tayoVwu(.*)/;
	$word=$1."ta\tunk";
	$word1="oVwu".$2;
	}

	if($word=~/ilAye(.*)/) {  	##rUpawwilAyeVfkiluM - rUpawwilZ + AyeVfkiluM	 
	$word=~/(.*)ilAye(.*)/;
	$word=$1."ilZ\tunk";
	$word1="Aye".$2;
	}

	if($word=~/oVppamuNt(.*)/) {  	##oVppamuNt - oVppaM + uNt	 
	$word=~/(.*)oVppamuNt(.*)/;
	$word=$1."oVppaM\tunk";
	$word1="uNt".$2;
	}

	if($word=~/koVNtAyi(.*)/) {  	##kAlZviralZkoVNtAyirunnu - kAlZviralZkoVNt + Ayirunnu	 
	$word=~/(.*)koVNtAyi(.*)/;
	$word=$1."koVNt\tunk";
	$word1="Ayi".$2;
	}

	if($word=~/yoVrAlZ(.*)/) {  	##palYYayoVrAlZbacciwraM - palYYayoVru + AlZbacciwraM	 
	$word=~/(.*)yoVrAlZ(.*)/;
	$word=$1."yoVru\tunk";
	$word1="AlZ".$2;
	}

	if($word=~/IteVp(.*)/) {  	##pinnIteVppolYYo - pinnIt + eVppolYYo	 
	$word=~/(.*)IteVp(.*)/;
	$word=$1."It\tunk";
	$word1="eVp".$2;
	}

	if($word=~/wupoleV(.*)/) {  	##vaccawupoleV - vaccaw + poleV	 
	$word=~/(.*)wupoleV(.*)/;
	$word=$1."w\tunk";
	$word1="poleV".$2;
	}

	if($word=~/yilir(.*)/) {  	##matiyilirunn - matiyilZ + irunn	 
	$word=~/(.*)yilir(.*)/;
	$word=$1."yilZ\tunk";
	$word1="ir".$2;
	}

	if($word=~/kkArAkk(.*)/) {  	##kusqwikkArAkki - kusqwikkArZ + Akki	 
	$word=~/(.*)kkArAkk(.*)/;
	$word=$1."kkArZ\tunk";
	$word1="Akk".$2;
	}

	if($word=~/amirY(.*)/) {  	##BAramirYakkAnZ - BAraM + irYakkAnZ	 
	$word=~/(.*)amirY(.*)/;
	$word=$1."aM\tunk";
	$word1="irY".$2;
	}

	if($word=~/SakAliyAk(.*)/) {  	##kISakAliyAkAweV - kISa + kAliyAkAweV	 
	$word=~/(.*)SakAliyAk(.*)/;
	$word=$1."Sa\tunk";
	$word1="kAliyAk".$2;
	}

	if($word=~/amiff(.*)/) {  	##oNamiff - oNaM + iff	 
	$word=~/(.*)amiff(.*)/;
	$word=$1."aM\tunk";
	$word1="iff".$2;
	}

	if($word=~/kkeVllA(.*)/) {  	##kUttarZkkeVllAM - kUttarZkk + eVllAM	 
	$word=~/(.*)kkeVllA(.*)/;
	$word=$1."kk\tunk";
	$word1="eVllA".$2;
	}

	if($word=~/kkANe(.*)/) {  	##iFcikkANelo - iFcikk + ANelo	 
	$word=~/(.*)kkANe(.*)/;
	$word=$1."kk\tunk";
	$word1="ANe".$2;
	}

	if($word=~/FFavil(.*)/) {  	##mutiFFavila - mutiFFa + vila	 
	$word=~/(.*)FFavil(.*)/;
	$word=$1."FFa\tunk";
	$word1="vil".$2;
	}

	if($word=~/oVkkeVyAN(.*)/) {  	##iwoVkkeVyANeVfkiluM - iwoVkkeV + ANeVfkiluM	 
	$word=~/(.*)oVkkeVyAN(.*)/;
	$word=$1."oVkkeV\tunk";
	$word1="AN".$2;
	}

	if($word=~/ewukoNi(.*)/) {  	##ewukoNilumuNt - iwoVkkeV + ANeVfkiluM	 
	$word=~/(.*)ewukoNi(.*)/;
	$word=$1."ew\tunk";
	$word1="koNi".$2;
	}

	if($word=~/kutacU(.*)/) {  	##olakkutacUti - olakkuta + cUti	 
	$word=~/(.*)kutacU(.*)/;
	$word=$1."kuta\tunk";
	$word1="cU".$2;
	}

	if($word=~/ffalYeVkkurYi(.*)/) {	##naRtasOBAgyaffalYeVkkurYicculYlYa - naRtasOBAgyaffalYeV + kurYicculYlYa	 
	$word=~/(.*)ffalYeVkkurYic(.*)/;
	$word=$1."ffalYeV\tunk";
	$word1="kurYic".$2;
	}

	if($word=~/eVyANeV(.*)/) {	##akaleVyANeVfkiluM - akaleV + ANeVfkiluM	 
	$word=~/(.*)eVyANeV(.*)/;
	$word=$1."eV\tunk";
	$word1="ANeV".$2;
	}

	if($word=~/ninnAv(.*)/) {	##ninnAvuM - ninn + AvuM 	 
	$word=~/(.*)ninnAv(.*)/;
	$word=$1."ninn\tunk";
	$word1="Av".$2;
	}

	if($word=~/eVyeVll(.*)/) {	##ayalZvIttukAreVyeVllAM - ayalZvIttukAreV + eVllAM 	 
	$word=~/(.*)eVyeVll(.*)/;
	$word=$1."eV\tunk";
	$word1="eVll".$2;
	}

	if($word=~/arYunirY(.*)/) {	##vayarYunirYacc - vayarY + nirYacc 	 
	$word=~/(.*)arYunirY(.*)/;
	$word=$1."arY\tunk";
	$word1="nirY".$2;
	}

	if($word=~/rimurYrYa(.*)/) {	##iwwirimurYrYawwu - iwwiri + murYrYawwu 	 
	$word=~/(.*)rimurYrYa(.*)/;
	$word=$1."ri\tunk";
	$word1="murYrYa".$2;
	}

	if($word=~/kotiyutuw(.*)/) {	##oNakkotiyutuwwu - oNakkoti + utuwwu 	 
	$word=~/(.*)kotiyutuw(.*)/;
	$word=$1."koti\tunk";
	$word1="utuw".$2;
	}

	if($word=~/lulYlYavar(.*)/) {	##nAttilulYlYavarumAyi - nAttilZ + ulYlYavarumAyi 	 
	$word=~/(.*)lulYlYavar(.*)/;
	$word=$1."lZ\tunk";
	$word1="ulYlYavar".$2;
	}

	if($word=~/eVkkeVww(.*)\t/) { # weVkkeVwwunpolYZ = weVkk + eVwwunpolYZ
	$word=~/(.*)eVkkeVww(.*)/;
	$word=$1."eVkk\tunk";
	$word1="eVww".$2;
	}

	if($word=~/aNameVnni(.*)\t/) { # piticcukoVlYlYaNameVnnilla = piticcukoVlYlYaNaM + eVnnilla
	$word=~/(.*)aNameVnni(.*)/;
	$word=$1."aNaM\tunk";
	$word1="eVnni".$2;
	}

	if($word=~/otteVww(.*)\t/) { # weVkkotteVwwunpolYZ = weVkkott + eVwwunpolYZ
	$word=~/(.*)otteVww(.*)/;
	$word=$1."ott\tunk";
	$word1="eVww".$2;
	}

	if($word=~/ranAk(.*)\t/) { # woranAkunnu = woranZ + Akunnu
	$word=~/(.*)ranAk(.*)/;
	$word=$1."ranZ\tunk";
	$word1="Ak".$2;
	}

	if($word=~/koVNtulYlYaw(.*)\t/) { # kurYuvakoVNtulYlYawAyirikkuM = woranZ + Akunnu
	$word=~/(.*)koVNtulYlYaw(.*)/;
	$word=$1."koVNt\tunk";
	$word1="ulYlYaw".$2;
	}

	if($word=~/anZwan(.*)\t/) { # kemanZwanneV = woranZ + Akunnu
	$word=~/(.*)anZwan(.*)/;
	$word=$1."anZ\tunk";
	$word1="wan".$2;
	}

	if($word=~/kkumuNtA(.*)\t/) { # saxyaykkumuNtAkuM = saxyaykkuM + uNtAkuM
	$word=~/(.*)kkumuNtA(.*)/;
	$word=$1."kkuM\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/rYuNtA(.*)\t/) { # corYuNtAle = corY + uNtAle
	$word=~/(.*)rYuNtA(.*)/;
	$word=$1."rY\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/illeVnn(.*)\t/) { # kalYYiccilleVnnu = kalYYiccilla + eVnnu
	$word=~/(.*)illeVnn(.*)/;
	$word=$1."illa\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/eVyeVviteVyANulYlY(.*)\t/) { # verYeVyeVviteVyANulYlYaw = verYeV + eVviteVyAN + ulYlYaw
	$word=~/(.*)eVyeVviteVyANulYlY(.*)/;
	$word=$1."eV\tunk";
	$word1="eVviteVyAN\tunk";
	$word2="ulYlY".$2;
	}

	if($word=~/eVnnuviSva(.*)\t/) { # kalYYivuNteVnnuviSvasikkappeVttirunna = kalYYivuNteVnn + viSvasikkappeVttirunna
	$word=~/(.*)eVnnuviSva(.*)/;
	$word=$1."eVnn\tunk";
	$word1="viSva".$2;
	}

	if($word=~/FFayita(.*)\t/) { # pawiFFayitaM = pawiFFa + itaM
	$word=~/(.*)FFayita(.*)/;
	$word=$1."FFa\tunk";
	$word1="ita".$2;
	}

	if($word=~/NtupAxaffalYZkoV(.*)\t/) { # raNtupAxaffalYZkoVNt = raNt + pAxaffalYZ + koVNt
	$word=~/(.*)NtupAxaffalYZkoV(.*)/;
	$word=$1."Nt\tunk";
	$word1="pAxaffalYZ\tunk";
	$word2="koV".$2;
	}

	if($word=~/wweVyati(.*)\t/) { # mUnnAmawweVyati = mUnnAmawweV + ati
	$word=~/(.*)wweVyati(.*)/;
	$word=$1."wweV\tunk";
	$word1="ati".$2;
	}

	if($word=~/wwilAvAhicc(.*)\t/) { # hqxayawwilAvAhiccava = hqxayawwilZ + AvAhiccava
	$word=~/(.*)wwilAvAhicc(.*)/;
	$word=$1."wwilZ\tunk";
	$word1="AvAhicc".$2;
	}

	if($word=~/YrYoVroNa(.*)\t/) { # marYrYoVroNakkAlaM = marYrYoVru + oNakkAlaM
	$word=~/(.*)YrYoVroNa(.*)/;
	$word=$1."YrYoVru\tunk";
	$word1="oNa".$2;
	}

	if($word=~/jillayAyitt(.*)\t/) { # jillayAyittuM = jilla + AyittuM
	$word=~/(.*)jillayAyitt(.*)/;
	$word=$1."jilla\tunk";
	$word1="Ayitt".$2;
	}

	if($word=~/nnuNteVfk(.*)\t/) { # natannuNteVfkiluM = natannuNt + eVfkiluM
	$word=~/(.*)nnuNteVfk(.*)/;
	$word=$1."nnuNt\tunk";
	$word1="eVfk".$2;
	}

	if($word=~/polumAki(.*)\t/) { # polumAkilla = poluM + Akilla
	$word=~/(.*)polumAki(.*)/;
	$word=$1."poluM\tunk";
	$word1="Aki".$2;
	}

	if($word=~/polumAki(.*)\t/) { # polumAkilla = poluM + Akilla
	$word=~/(.*)polumAki(.*)/;
	$word=$1."poluM\tunk";
	$word1="Aki".$2;
	}

	if($word=~/rYillAwwoVru(.*)\t/) {  	# sAnpArYillAwwoVru = sAnpArZ + illAwwa + oVru
	$word=~/(.*)rYillAwwoVru(.*)/;
	$word=$1."rZ\tunk";
	$word1="illAwwa\tunk";
	$word2="oVru".$2;
	}

	if($word=~/gawwinANeVfk(.*)\t/) { # avarZNaviBAgawwinANeVfkilZ = avarZNaviBAgawwin + ANeVfkilZ
	$word=~/(.*)gawwinANeVfk(.*)/;
	$word=$1."gawwin\tunk";
	$word1="ANeVfk".$2;
	}

	if($word=~/gawwinANeVfk(.*)\t/) { # avarZNaviBAgawwinANeVfkilZ = avarZNaviBAgawwin + ANeVfkilZ
	$word=~/(.*)gawwinANeVfk(.*)/;
	$word=$1."gawwin\tunk";
	$word1="ANeVfk".$2;
	}

	if($word=~/vAyawukoVNtuwan(.*)\t/) { # kurYavAyawukoVNtuwanneV = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)vAyawukoVNtuwan(.*)/;
	$word=$1."vAyaw\tunk";
	$word1="koVNtuwan".$2;
	}

	if($word=~/urYunparikkaruweVnna(.*)\t/) { # urYunparikkaruweVnnawreV = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)urYunparikkaruweVnna(.*)/;
	$word=$1."urYunp\tunk";
	$word1="arikkaruw\tunk";
	$word2="eVnna".$2;
	}

	if($word=~/wiyileVnn(.*)\t/) { # prakqwiyileVnnapoleV = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)wiyileVnn(.*)/;
	$word=$1."wiyilZ\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/cerunnoVru(.*)\t/) { # oVwwucerunnoVru = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)cerunnoVru(.*)/;
	$word=$1."cerunn\tunk";
	$word1="oVru".$2;
	}

	if($word=~/wwinupakaraM(.*)\t/) { # pUkkalYawwinupakaraM = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)wwinupakaraM(.*)/;
	$word=$1."wwin\tunk";
	$word1="pakaraM".$2;
	}

	if($word=~/rYrYilamurYukk(.*)\t/) { # veVrYrYilamurYukkaluM = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)rYrYilamurYukk(.*)/;
	$word=$1."rYrYila\tunk";
	$word1="murYukk".$2;
	}

	if($word=~/ninnulYlYavar(.*)\t/) { # BAgaffalYilZninnulYlYavarutewAN = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)ninnulYlYavar(.*)/;
	$word=$1."ninn\tunk";
	$word1="ulYlYavar".$2;
	}

	if($word=~/ayAmeVnnurYappicc(.*)\t/) { # parIkRiccukalYayAmeVnnurYappicc = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)ayAmeVnnurYappicc(.*)/;
	$word=$1."ayAmeVnn\tunk";
	$word1="urYappicc".$2;
	}

	if($word=~/passAraMB(.*)\t/) { # wapassAraMBiccu = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)passAraMB(.*)/;
	$word=$1."pass\tunk";
	$word1="AraMB".$2;
	}

	if($word=~/ffalYakarYrY(.*)\t/) { # kAlaxoRaffalYakarYrYAnZ = kAlaxoRaffalYZ + akarYrYAnZ
	$word=~/(.*)ffalYakarYrY(.*)/;
	$word=$1."ffalYZ\tunk";
	$word1="akarYrY".$2;
	}

	if($word=~/muKamaNiy(.*)\t/) { # kummAttimuKamaNiyunna = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)muKamaNiy(.*)/;
	$word=$1."muKaM\tunk";
	$word1="aNiy".$2;
	}

	if($word=~/ppulluwanneVyAyi(.*)\t/) { # kummAttippulluwanneVyAyirunnu = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)ppulluwanneVyAyi(.*)/;
	$word=$1."ppull\tunk";
	$word1="wanneV\tunk";
	$word2="Ayi".$2;
	}

	if($word=~/aruwwumuNteVfk(.*)\t/) { # manakkaruwwumuNteVfkile = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)aruwwumuNteVfk(.*)/;
	$word=$1."aruww\tunk";
	$word1="uNteVfk".$2;
	}

	if($word=~/VNtANeVnn(.*)\t/) { # koVNtANeVnn = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)VNtANeVnn(.*)/;
	$word=$1."VNtAN\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/anAyirunnawukoVN(.*)\t/) { # SivaBakwanAyirunnawukoVNtAN = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)anAyirunnawukoVN(.*)/;
	$word=$1."anZ\tunk";
	$word1="Ayirunnaw\tunk";
	$word2="koVN".$2;
	}

	if($word=~/kalYivann(.*)\t/) { # kummAttikkalYivannaw = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kalYivann(.*)/;
	$word=$1."kalYi\tunk";
	$word1="vann".$2;
	}

	if($word=~/ameVww(.*)\t/) { # oNameVwwAnZ = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)ameVww(.*)/;
	$word=$1."aM\tunk";
	$word1="eVwwA".$2;
	}

	if($word=~/XqwikUtt(.*)\t/) { # XqwikUttunna = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)XqwikUtt(.*)/;
	$word=$1."Xqwi\tunk";
	$word1="kUtt".$2;
	}

	if($word=~/awukoVNtAk(.*)\t/) { # vitarunnawukoVNtAkAM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)awukoVNtAk(.*)/;
	$word=$1."awukoVNt\tunk";
	$word1="Ak".$2;
	}

	if($word=~/ANeVnn(.*)\t/) { # cavittiyittANeVnn = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)ANeVnn(.*)/;
	$word=$1."AN\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/ekkirYaff(.*)\t/) { # BUmiyilekkirYaffunnaw = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)ekkirYaff(.*)/;
	$word=$1."ekk\tunk";
	$word1="irYaff".$2;
	}

	if($word=~/annuNtAyir(.*)\t/) { # annuNtAyirunnu = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)annuNtAyir(.*)/;
	$word=$1."ann\tunk";
	$word1="uNtAyir".$2;
	}

	if($word=~/ilZveVcc(.*)\t/) { # atiyilZveVcc = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)ilZveVcc(.*)/;
	$word=$1."ilZ\tunk";
	$word1="veVcc".$2;
	}

	if($word=~/kAlamAkunpol(.*)\t/) { # oNakkAlamAkunpolYYekkuM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kAlamAkunpol(.*)/;
	$word=$1."kAlaM\tunk";
	$word1="Akunpol".$2;
	}

	if($word=~/amuNNAn(.*)\t/) { # oNamuNNAnZ = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)amuNNAn(.*)/;
	$word=$1."aM\tunk";
	$word1="uNNAn".$2;
	}

	if($word=~/tilirikk(.*)\t/) { # vIttilirikkunna = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)tilirikk(.*)/;
	$word=$1."tilZ\tunk";
	$word1="irikk".$2;
	}

	if($word=~/Fciyita(.*)\t/) { # mElAFciyitaNaM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)Fciyita(.*)/;
	$word=$1."Fci\tunk";
	$word1="ita".$2;
	}

	if($word=~/wwoteVyAyir(.*)\t/) { # uxxeSyawwoteVyAyirikkAM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)wwoteVyAyir(.*)/;
	$word=$1."wwoteV\tunk";
	$word1="Ayir".$2;
	}

	if($word=~/illawwulYlYavar(.*)\t/) { # illawwulYlYavarZkkuM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)illawwulYlYavar(.*)/;
	$word=$1."illaww\tunk";
	$word1="ulYlYavar".$2;
	}

	if($word=~/nAlYZkUti(.*)\t/) { # nAlYZkUti = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)nAlYZkUti(.*)/;
	$word=$1."nAlYZ\tunk";
	$word1="kUti".$2;
	}

	if($word=~/kkAnirYaf(.*)\t/) { # parYikkAnirYaffuka = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kkAnirYaf(.*)/;
	$word=$1."kkAnZ\tunk";
	$word1="irYaf".$2;
	}

	if($word=~/kalYamitun(.*)\t/) { # varZNappUkkalYamitunpolYZ = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kalYamitun(.*)/;
	$word=$1."kalYaM\tunk";
	$word1="itun".$2;
	}

	if($word=~/wwinZnAl(.*)\t/) { # uwrAtawwinZnAlYAN = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)wwinZnAl(.*)/;
	$word=$1."wwinZ\tunk";
	$word1="nAl".$2;
	}

	if($word=~/yittuNtAv(.*)\t/) { # ulYZppeVtuwwiyittuNtAvuM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)yittuNtAv(.*)/;
	$word=$1."yitt\tunk";
	$word1="uNtAv".$2;
	}

	if($word=~/nuwann(.*)\t/) { # vAkkinuwanneV = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)nuwann(.*)/;
	$word=$1."n\tunk";
	$word1="wann".$2;
	}

	if($word=~/wuvayas(.*)\t/) { # oVnpawuvayassuvareV = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)wuvayas(.*)/;
	$word=$1."w\tunk";
	$word1="vayas".$2;
	}

	if($word=~/uwara(.*)\t/) { # ewuwaraM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)uwara(.*)/;
	$word=$1."\tunk";
	$word1="wara".$2;
	}

	if($word=~/winAvaS(.*)\t/) { # ASayasaMvexanawwinAvaSyamAya = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)winAvaS(.*)/;
	$word=$1."win\tunk";
	$word1="AvaS".$2;
	}

	if($word=~/kkoVranu(.*)\t/) { # malayAlYikalYZkkoVranuBUwiyAN = kurYavAyaw + koVNtuwanneV
	$word=~/(.*)kkoVranu(.*)/;
	$word=$1."kk\tunk";
	$word1="oVru\tunk";
	$word2="anu".$2;
	}

	if($word=~/lYZkkumunp(.*)\t/) { # kAlaffalYZkkumunp = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)lYZkkumunp(.*)/;
	$word=$1."lYZkk\tunk";
	$word1="munp".$2;
	}

	if($word=~/oVrEwI(.*)\t/) { # marYrYoVrEwIhyamuNt = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)oVrEwI(.*)/;
	$word=$1."oVru\tunk";
	$word1="EwI".$2;
	}

	if($word=~/amuNtA(.*)\t/) { # puligAMBIryamuNtAkki = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)amuNtA(.*)/;
	$word=$1."aM\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/MnAlY(.*)\t/) { # awwaMnAlYil = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)MnAlY(.*)/;
	$word=$1."M\tunk";
	$word1="nAlY".$2;
	}

	if($word=~/wunAlY(.*)\t/) { # pawwunAlY = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)unAlY(.*)/;
	$word=$1."\tunk";
	$word1="nAlY".$2;
	}

	if($word=~/uppuwsa(.*)\t/) { # vilYaveVtuppuwsavamAya = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)uppuwsa(.*)/;
	$word=$1."upp\tunk";
	$word1="uwsa".$2;
	}

	if($word=~/rYrYeVllA(.*)\t/) { # marYrYeVllA = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)eVllA(.*)/;
	$word=$1."rYrY\tunk";
	$word1="eVllA".$2;
	}

	if($word=~/kkeVccer(.*)\t/) { # oVkkeVccerZnn = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kkeVccer(.*)/;
	$word=$1."kkeV\tunk";
	$word1="cer".$2;
	}

	if($word=~/AnayeVlYY(.*)\t/) { # AnayeVlYYunnalYlYaww = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)AnayeVlYY(.*)/;
	$word=$1."Ana\tunk";
	$word1="eVlYY".$2;
	}

	if($word=~/AlYAkunp(.*)\t/) { # nAlYAkunpolYYekkuM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)AlYAkunp(.*)/;
	$word=$1."AlYZ\tunk";
	$word1="Akunp".$2;
	}

	if($word=~/kalYAku(.*)\t/) { # mUrZwwikalYAkunna = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)kalYAku(.*)/;
	$word=$1."kalYZ\tunk";
	$word1="Aku".$2;
	}

	if($word=~/saxyayoVrukk(.*)\t/) { # wiruvoNasaxyayoVrukkukayuM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)saxyayoVrukk(.*)/;
	$word=$1."saxya\tunk";
	$word1="oVrukk".$2;
	}

	if($word=~/erYeVyAN(.*)\t/) { # oVtterYeVyAN = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)erYeVyAN(.*)/;
	$word=$1."erYeV\tunk";
	$word1="AN".$2;
	}

	if($word=~/erYeVyuNt(.*)\t/) { # oVtterYeVyuNt = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)erYeVyuNt(.*)/;
	$word=$1."erYeV\tunk";
	$word1="uNt".$2;
	}

	if($word=~/amewAyA(.*)\t/) { # EwihyamewAyAluM = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)amewAyA(.*)/;
	$word=$1."aM\tunk";
	$word1="ewAyA".$2;
	}

	if($word=~/unnaweVnn(.*)\t/) { # koVNtAtunnaweVnnAN = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)unnaweVnn(.*)/;
	$word=$1."unnaw\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/iweVnn(.*)\t/) { # xinamANiweVnnu = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)iweVnn(.*)/;
	$word=$1."iw\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/ameVnw(.*)\t/) { # banXameVnwAN = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)ameVnw(.*)/;
	$word=$1."aM\tunk";
	$word1="eVnw".$2;
	}

	if($word=~/wwilata(.*)\t/) { # kArAgqhawwilataccu = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)wwilata(.*)/;
	$word=$1."wwilXZ\tunk";
	$word1="ata".$2;
	}

	if($word=~/unnuNteVnn(.*)\t/) { # natakkunnuNteVnnawANu = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)unnuNteVnn(.*)/;
	$word=$1."unnuNt\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/AweVyuNtA(.*)\t/) { # ninaccirikkAweVyuNtAvunna = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)AweVyuNtA(.*)/;
	$word=$1."AweV\tunk";
	$word1="uNtA".$2;
	}

	if($word=~/rYamAkunn(.*)\t/) { # wavittunirYamAkunnawuvareV = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)rYamAkunn(.*)/;
	$word=$1."rYaM\tunk";
	$word1="Akunn".$2;
	}

	if($word=~/naykkeVww(.*)\t/) { # vilZppanaykkeVwwunnaw = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)naykkeVww(.*)/;
	$word=$1."naykk\tunk";
	$word1="eVww".$2;
	}

	if($word=~/swramutu(.*)\t/) { # vaswramutuww = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)swramutu(.*)/;
	$word=$1."swraM\tunk";
	$word1="utu".$2;
	}

	if($word=~/yamAkkaNa(.*)\t/) { # paTanaviRayamAkkaNameVnnu = kummAttimuKaM + akarYrYAnZ
	$word=~/(.*)yamAkkaNa(.*)/;
	$word=$1."yaM\tunk";
	$word1="AkkaNa".$2;
	}

	if($word=~/ANiw(.*)\t/) { # ANiw = AN + iw
	$word=~/(.*)ANiw(.*)/;
	$word=$1."AN\tunk";
	$word1="iw".$2;
	}

	if($word=~/ayulYZppeVt(.*)\t/) { # punaprawiRTayulYZppeVtunna = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ayulYZppeVt(.*)/;
	$word=$1."a\tunk";
	$word1="ulYZppeVt".$2;
	}

	if($word=~/aNameVnn(.*)\t/) { # vAffaNameVnnAN = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)aNameVnn(.*)/;
	$word=$1."aNaM\tunk";
	$word1="eVnn".$2;
	}

	if($word=~/mAyawinA(.*)\t/) { # ABaraNamAyawinAlZ = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)mAyawinA(.*)/;
	$word=$1."M\tunk";
	$word1="AyawinA".$2;
	}

	if($word=~/ayilAyaw(.*)\t/) { # nilavarYayilAyawinAlZ = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ayilAyaw(.*)/;
	$word=$1."ayilZ\tunk";
	$word1="Ayaw".$2;
	}

	if($word=~/pawivup(.*)\t/) { # pawivupUjakalYZkku = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)pawivup(.*)/;
	$word=$1."pawiv\tunk";
	$word1="p".$2;
	}

	if($word=~/kkati(.*)\t/) { # BUmikkatiyileV = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kkati(.*)/;
	$word=$1."kk\tunk";
	$word1="ati".$2;
	}

	if($word=~/kalurY(.*)\t/) { # pakalurYaffaruw = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kalurY(.*)/;
	$word=$1."kalZ\tunk";
	$word1="urY".$2;
	}

	if($word=~/wwilulYlYawi(.*)\t/) { # XAnyakawwilulYlYawinekkAlYZ = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)wwilulYlYawi(.*)/;
	$word=$1."wwilZ\tunk";
	$word1="ulYlYawi".$2;
	}

	if($word=~/ppati(.*)\t/) { # koVlYYuppatiFF = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ppati(.*)/;
	$word=$1."pp\tunk";
	$word1="ati".$2;
	}

	if($word=~/kkitAn(.*)\t/) { # eVnikkitAnZ = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kkitAn(.*)/;
	$word=$1."kk\tunk";
	$word1="itAn".$2;
	}

	if($word=~/kkiRt(.*)\t/) { # eVnikkitAnZ = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kkiRt(.*)/;
	$word=$1."kk\tunk";
	$word1="iRt".$2;
	}

	if($word=~/kkoti(.*)\t/) { # kkoti = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kkoti(.*)/;
	$word=$1."kk\tunk";
	$word1="oti".$2;
	}

	if($word=~/ayAyir(.*)\t/) { # ayAyirunnu = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ayAyir(.*)/;
	$word=$1."a\tunk";
	$word1="Ayir".$2;
	}

	if($word=~/nnukUt(.*)\t/) { # oVnnukUteV = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ayAyir(.*)/;
	$word=$1."a\tunk";
	$word1="Ayir".$2;
	}

	if($word=~/ilorZ(.*)\t/) { # manassilorZwwu = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ilorZ(.*)/;
	$word=$1."ilZ\tunk";
	$word1="orZ".$2;
	}

	if($word=~/iyittu(.*)\t/) { # pawawiyittu = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)iyittu(.*)/;
	$word=$1."i\tunk";
	$word1="ittu".$2;
	}

	if($word=~/kkeVtu(.*)\t/) { # vAtakakkeVtuww = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)kkeVtu(.*)/;
	$word=$1."kk\tunk";
	$word1="eVtu".$2;
	}

	if($word=~/ittuNteVf(.*)\t/) { # poyittuNteVfkiluM = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)ittuNteVf(.*)/;
	$word=$1."itt\tunk";
	$word1="uNteVf".$2;
	}

	if($word=~/perata(.*)\t/) { # perataffunna = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)perata(.*)/;
	$word=$1."per\tunk";
	$word1="ata".$2;
	}

	if($word=~/iluNt(.*)\t/) { # vIttiluNtAkkiya = punaprawiRTa + ulYZppeVtunna
	$word=~/(.*)iluNt(.*)/;
	$word=$1."ilZ\tunk";
	$word1="uNt".$2;
	}

	if($word=~/([A-z])ulYlYawi(.*)\t/) { # rYodulYlYawinAlZ = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)ulYlYawi(.*)/;
	$word=$1."\tunk";
	$word1="ulYlYawi".$2;
	}

	if($word=~/AnAk(.*)\t/) { # kANAnAkilla = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)AnAk(.*)/;
	$word=$1."AnZ\tunk";
	$word1="Ak".$2;
	}

	if($word=~/AlallA(.*)\t/) { # nokkiyAlallAweV = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)AlallA(.*)/;
	$word=$1."AlZ\tunk";
	$word1="allA".$2;
	}

	if($word=~/vAxiyAk(.*)\t/) { # vAxiyAk = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)vAxiyAk(.*)/;
	$word=$1."vAxi\tunk";
	$word1="Ak".$2;
	}

	if($word=~/wilAku(.*)\t/) { # wwilAkuka = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)wilAku(.*)/;
	$word=$1."wilZ\tunk";
	$word1="Aku".$2;
	}

	if($word=~/awuNtAk(.*)\t/) { # awuNtAk = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)awuNtAk(.*)/;
	$word=$1."aw\tunk";
	$word1="uNtAk".$2;
	}

	if($word=~/FFuka(.*)\t/) { # nirYaFFukaviFFAlZ = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)FFuka(.*)/;
	$word=$1."FF\tunk";
	$word1="ka".$2;
	}

	if($word=~/eVwwut(.*)\t/) { # malYYayeVwwutarZnnAN = arYabikkatalin + aBimuKamAyi
	$word=~/(.*)eVwwut(.*)/;
	$word=$1."eV\tunk";
	$word1="wut".$2;
	}

#################################################### 

	print "1\t$word\n";
	if($word1 ne "") {
	print "1\t$word1\n";
	}
	if(($word1 ne "")&&($word2 ne "")) {
	print "1\t$word2\n"; 
	$word2=~s/.*//g; }
}