perl -ne 'BEGIN{$/="-"x72; $re = shift} print"$r\n"if((($r)=split)&&/$re/)' search_term

##</code><code>##

perl -lne 'BEGIN{$/="-"x72; $re = shift} /$re/ and ($_)=split and print' search_term