perl -e '$/ = "" ; $a = qq(AA\n\n); $b = qq(BB\n\n); $res = chomp ($a,$b); print qq(>$a< removed $res\n>$b< removed $res\n)'
>AA< removed 4
>BB< removed 4