#!/usr/bin/perl
use strict; use warnings;

<>;
while(<>){
	my $linha = $_;
	chomp $linha;
	my $type = 'Normal';
	my ($pt, $brs, $oas, $prefspt, $prefsbr, $obs) = split /\s+::\s+/,$linha;
	my @oa = split /,/,$oas;
	my @br = split /,/,$brs;
	my @prefpt = split /,/,$prefspt;
	my @prefbr = split /,/,$prefsbr;

	my $hyph_pt = ($pt =~ s/-/-/g);
	my $hyph_br = ($brs =~ s/-/-/g);
	my $hyph_prefspt = ($prefspt =~ s/-/-/g);
	my $hyph_prefsbr = ($prefsbr =~ s/-/-/g);
	my $hyph_oas = ($oas =~ s/-/-/g);

	my $cap_pt = ($pt =~ s/([A-Z])/$1/g);
	my $cap_br = ($brs =~ s/([A-Z])/$1/g);
	my $cap_prefspt = ($prefspt =~ s/([A-Z])/$1/g);
	my $cap_prefsbr = ($prefsbr =~ s/([A-Z])/$1/g);
	my $cap_oas = ($oas =~ s/([A-Z])/$1/g);

	my $acc_pt = ($pt =~ s/([àáéèìíòóùúäëïöüãẽõâêô])/$1/ig);
	my $acc_br = ($brs =~ s/([àáéèìíòóùúäëïöüãẽõâêô])/$1/ig);
	my $acc_prefspt = ($prefspt =~ s/([àáéèìíòóùúäëïöüãẽõâêô])/$1/ig);
	my $acc_prefsbr = ($prefsbr =~ s/([àáéèìíòóùúäëïöüãẽõâêô])/$1/ig);
	my $acc_oa = ($oas =~ s/([àáéèìíòóùúäëïöüãẽõâêô])/$1/ig);

	unless ($hyph_pt==0 and $hyph_br==0 and $hyph_oas==0){ # se nao ha' hifens passa 'a frente
		if (scalar @prefpt==1){
			$type = 'Hyphen' unless $hyph_pt == $hyph_prefspt;
		}
		if (scalar @br ==1 and scalar @prefbr==1){
			$type = 'Hyphen' unless $hyph_br == $hyph_prefsbr;
		}
	}
	
	unless ($cap_pt==0 and $cap_br==0 and $cap_oas==0){ # se nao ha' maiusculas passa 'a frente
		if (scalar @prefpt==1){
			$type = 'Capit' if $cap_pt != $cap_prefspt;
		}
		if (scalar @br ==1 and scalar @prefbr==1){
			$type = 'Capit' if $cap_br != $cap_prefsbr;
		}
	}

	unless ($acc_pt==0 and $acc_br==0 and $acc_oa==0){ # se nao ha' acentos passa 'a frente
		if (scalar @prefpt==1){
			$type = 'Accent' if $acc_pt != $acc_prefspt;
		}
		if (scalar @br ==1 and scalar @prefbr==1){
			$type = 'Accent' if $acc_br != $acc_prefsbr;
		}
	}

	print join(' :: ',$pt, $brs, $oas, $prefspt, $prefsbr, $type),"\n";

}