#!/usr/bin/perl -w

#escreve os nomes que aparecem modificados polo adjectivo 'espaņol'

#Ficheiro de entrada: cada linha é um bigrama onde cada elemento é um par:
#"lema_etiqueta"



while ($linha = <STDIN>) {
     chomp $linha;
 
     #identifica cada um dos pares lema_etiqueta que forma o bigrama
     ($par1, $par2) = split (" ", $linha) ;
      
     #separa cada par e identifica o lema e a etiqueta:
     ($lema1, $etiqueta1) = split ("_", $par1) ;
     ($lema2, $etiqueta2) = split ("_", $par2) ;
      
     
     #busca os pares formados polo adjectivo 'espaņol' e um nome a sua esquerda: 
     if ( ($lema2 eq "espaņol") && ($etiqueta2 =~ /^A/) && ($etiqueta1 =~ /^N/) ) {
         print "$lema1\n";
     }
}