Select Code to Download

$addr =~ s/(?<![|\s])\s{25,}[^|]+//g;   # extra right-text

$addr =~ s/(?<![|\s])\s{27,}[^|]+//g;   # extra right-text

use strict;
use warnings;
...

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

c:\Users\collinsc\dev>perl lookBehind.pl
Address to parse :
...
                                Total Payment Amount                  
+    $886.00|                                                         
+                           Escrow Portion                           $
+344.49|
Result addr :
 FIRST LAST NAME|ADDRESS 1|CITY STATE ZIPCODE