in reply to regular expression: match multiple newlines
/(?<=\S)\s*$/ ? ({print "$a$`"},$a="\n") : ($a='EEEEE') while <DATA>; __DATA__ dogs rats cats fish text cats2 fish2 text3 [download]
dogs rats catsEEEEEfish text cats2EEEEEfish2 text3 [download]