Select Code to Download

#!/bin/perl

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

<DI:"def.def"><RD:Item><PS:Item>Campo_Ementa ###HERE GOES THE TEXT THA
+T I DONT WANT TO VERIFY[a-zA-Zetcetc]*### <HR>Campo_Identificacao(Rec
+urso 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:Identif
+icacao>