perl -e "$a=qq(AA\n\n);$res = chomp $a; print qq(>$a< removed $res\n)"
>AA
< removed 1


## maybe it means another thing:
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
)"
>AA
< removed 2
>BB
< removed 2