$ perl -lwe 'my $_="EVITE LA ENFERMEDAD PERIODONTAL< AS"; s/<.*?(\{|$)//; pr int' EVITE LA ENFERMEDAD PERIODONTAL ####