Campo_Ementa ###HERE GOES THE TEXT THAT I DONT WANT TO VERIFY[a-zA-Zetcetc]*###

Campo_Identificacao(Recurso Inominado nº 0702995-42.2017.8.01.0002, 1ª Turma Recursal dos Juizados Especiais/AC, Rel. Maria Rosinete dos Reis Silva. j. 11.07.2018 , Publ. 20.07.2018).

##

use strict;
use warnings;
use utf8;

use Test::More tests => 1;

my @in = split (/\n/, < 1 );
my @out;

for my $line (@in) {
    if ($line =~ /nº ([\d]*),/) {
        $number = $1;
    } else {
        $number = '';
    }

    push @out, $line unless $seen{$number}++;
}

is_deeply (\@out, \@want);