#!/usr/bin/perl

use strict;

while( <DATA> ) {
s/<(\w+)>/\{$1\}\n/g;
print $_;
}

[SOUR]
Por Gisela Orozco 312.527.8461/ Chicago\
<line> Por Gisela Orozco< ttl>312.527.8461/ Chicago</ttl>


##</code><code>##

[SOUR]
Por Gisela Orozco 312.527.8461/ Chicago\
{line}
 Por Gisela Orozco
{ttl}
312.527.8461/ Chicago