#!/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);