Select Code to Download

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

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