#!/bin/perl

$FILEIN = shift (); 
$FILEOUT = shift (); 

open(FILE, "<$FILEIN"); 
open(SAIDA, ">$FILEOUT");
@arquivo = <FILE>; # VETOR
#@arquivo = sort(@arquivo);

foreach $linha (@arquivo)
{
	
	if($linha=~/(^.+<HR>Campo_Identificacao\()[^0-9]*<b>([0-9]{5,7}\-[^\,]*)</b>(\,.+)/)
	{
		<b>$NumProc = $2;</b>
		#$linhaTemp = $1."\#\$".$3;
	}
	
   	#push @novo_array, <b>$NumProc</b> if not <b>$NumProc_anterior{$linha}++;</b>
}

	print SAIDA @novo_array;
	close (SAIDA);
	close (FILE);

##</code><code>##

<DI:"def.def"><RD:Item><PS:Item>Campo_Ementa ###HERE GOES THE TEXT THAT I DONT WANT TO VERIFY[a-zA-Zetcetc]*### <HR>Campo_Identificacao(Recurso Inominado nº <b>0702995-42.2017.8.01.0002</b>, 1ª Turma Recursal dos Juizados Especiais/AC, Rel. Maria Rosinete dos Reis Silva. j. 11.07.2018 , Publ. 20.07.<FD:AnoJulg>2018</FD:AnoJulg>).<HR><PS:Identificacao>