gistfile1.pl

sub _hdlr_entry_body_has_image { 
    my($ctx, $args, $cond) = @_; 

    return 0 if (!$ctx->stash('entry')); 
    my $entry_text = &MT::Template::Context::_hdlr_entry_body; 
    my @paragraphs = split(/<p[^>]*>/i, $entry_text); 

    ## just checking for img tag in the 
    ## first three paragraphs, skip first array element, 
    ## because of that element is fake element 
    ## (because of specialities split function) 
    foreach (@paragraphs[1..3]) { 
        return 1 if (/<img[^>]*>/i);
    }  
    return 0;
}