while(){ @r=split(/\s+/,$_); ($r[1]ne$r[2])or next; print $_; } __DATA__ acadian french french albanian english english afrikaans afrikaans afrikaans american american american australian australian british austrian german german bahasa bahasa indonesian indonesian bahasa indonesian indon bahasa indonesian bahasai bahasa indonesian malay bahasa indonesian meyalu bahasa indonesian bahasam bahasa indonesian basque basque basque brazil portuges portuges brazilian portuges portuges breton english english british british british bulgarian bulgarian bulgarian canadian canadian american canadien french french catalan catalan catalan croatian croatian croatian czech czech czech danish danish danish dutch dutch dutch english english english esperanto esperanto esperanto estonian estonian estonian finnish finnish finnish francais french french frenchb french french french french french galician galician galician german german german germanb german german greek greek greek polutonikogreek greek greek hebrew english english hungarian hungarian hungarian icelandic icelandic icelandic interlingua interlingua interlingua irish irish irish italian italian italian latin latin latin lowersorbian english english magyar magyar hungarian naustrian ngerman ngerman newzealand newzealand british ngerman ngerman ngerman norsk norsk norsk samin samin english nynorsk norsk norsk polish polish polish portuges portuges portuges portuguese portuguese portuguese romanian romanian romanian russian russian russian scottish english english serbian serbian serbian slovak slovak slovak slovene slovene slovene spanish spanish spanish swedish swedish swedish turkish turkish turkish ukrainian ukrainian ukrainian uppersorbian uppersorbian uppersorbian welsh welsh welsh UKenglish british british USenglish USenglish USenglish kurmanji english kurmanji