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