use strict;
use warnings;

while (<DATA>) {
    $_ =~ m/\{/g;
    my $str = $`;
    my $str1=$';
    $str=~ s/\>//g;

    print $str."{".$str1;
}
__DATA__
testline1
 EVITE LA ENFERMEDAD PERIODONTAL<
EVITE LA ENFERMEDAD PERIODONTAL<                   AS
{IT}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCĂ
testline2
testline3

##</code><code>##

Use of uninitialized value in substitution (s///) at ...
Use of uninitialized value in concatenation (.) or string at ...
    <snip other warnings>
{{{{IT}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCĂ
    <snip more warnings>
{IT}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCĂ
    <snip more warnings>
{IT}CTIQUE LA HIGIENE DENTAL PARA CUIDAR SUS ENCĂ