Help for this page
/(?<=\S)\s*$/ ? ({print "$a$`"},$a="\n") : ($a='EEEEE') while <DATA>; ... fish2 text3
dogs rats catsEEEEEfish text cats2EEEEEfish2 text3