$body=~s/[\n\r]+$//;