use strict;
use warnings;

my $addr = '|                                                                                   Note                                     00001|       FIRST LAST NAME|       ADDRESS 1                                                             Interest Rate                             5.450000|       CITY                         STATE ZIPCODE|



                                                                        YTD Interest                             $4,442.64|
                                Total Payment Amount                      $886.00|                                                                                    Escrow Portion                           $344.49|';
 
print  "address to parse :  \n $addr \n";
$addr =~ s/\|\s{25,}[^|]+//g;           # rm spaces left
$addr =~ s/(?<![|\s])\s{27,}[^|]+//g;  # extra right-text
$addr =~ s/\s*\|\s*/|/g;
$addr =~ s/\|{2,}/|/g;
$addr =~ s/\s+\|$//;
$addr =~ s/\s+/ /g;
# use up to 6 of last lines for addr
$addr = join('|', (split('\|', "||||||$addr"))[-6..-1]);
$addr =~ s/^\|+//;

print "Result addr : \n $addr \n";