#!/usr/bin/perl -w
use strict;

while( <DATA> ) 
{
   s/<\s*/</g;     #compress spaces right after "< xxx"
   s/\s*>/>/g;     #compress spaces right before "xxx >"
   s/(.)</$1\n</g; #add \n before < if not already on new line
   print $_;
}

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

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