split /\n{2,}/, $inputed_text; 

##</code><code>##

split /([^\S\n]*\n){2,}/, $input;