#!/usr/bin/perl --
use strict;
use warnings;
use Mojo::DOM;

my $html = q{
<div class="post reply body-not-empty" id="reply_8735435">
(cut out for visibility)
<p class="body-line ltr ">The first 3 lines were 15% bait power, but then it fell to mere 5% and the last lines are literally 0%, try again in a few days.</p>
</div>
(cut out for visibility)
<div class="post reply body-not-empty" id="reply_8735439">
(cut out for visibility)
<div class="body" >
<p class="body-line ltr ">
<a onclick="highlightReply('8735417', event);" href="/b/res/8735417.html#8735417">&gt;&gt;8735417</a>
</p>
<p class="body-line ltr quote">&gt;Reddit is a great place for discourse and there are many active subreddits where field professionals regularly answer questions on issues of health, science, engineering, etc</p>
<p class="body-line ltr ">Yeah, as far as content goes, Reddit kicks 8chan's ass. They have some great boards for serious academic discussion.</p>
<p class="body-line empty">
};

my $dom = Mojo::DOM->new( $html ); 

for my $e ( $dom->find( 'div.reply' )->each ){
    print $e->{id},"\n", $e->text, "\n\n";
}

__END__
reply_8735435

(cut out for visibility)



reply_8735439

(cut out for visibility)