/(?<=\S)\s*$/ ? ({print "$a$`"},$a="\n") : ($a='EEEEE') while <DATA>;



__DATA__
dogs rats
cats
   
fish
text
cats2
   
  
  

fish2
text3