#!/usr/bin/perl
while(<DATA>){
s/<(.*){//;
}


__DATA__
 EVITE LA ENFERMEDAD PERIODONTAL< 
EVITE LA ENFERMEDAD PERIODONTAL<                   AS
{IT}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCĂ