use strict;
use warnings;
use LWP::Simple;

my $URL     = 'https://www.reddit.com/r/unitedkingdom/comments/58m2hs/' .
              'i_daniel_blake_is_released_today/';
my $CONTENT =  get($URL);
my $regex   = '<div class="usertext-body may-blank-within md-container ">' .
              '<div class="md">(.+?)</div>\s*</div>' .
              '</form><ul class="flat-list buttons">';
my $x       = '';
my $count   =  0;

while ($CONTENT =~ m{$regex}gs)
{
    $x .= $1;
    ++$count;
}

print $x;
print "Count: $count\n";