perl -e 'print "aa\r\nab\r\n\r\naa\nbb\n"' >test

##</code><code>##

perl -e '$/="\r\n\r\n"; print "\tMy item: $_" while (<>);' <test

##</code><code>##

        My item: aa
ab
 
        My item: aa
bb
##</code><code>##

 perl -e 'undef $/;@a=split(/\r\n\r\n/,<>); print join "\t My item: ", @a;' <test