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

my @URLS = qw(
    http://one.example.com
    http://two.example.com
    http://three.example.com
);

my $regex   = '<div class="usertext-body may-blank-within md-container ">' .
              '<div class="md">(.+?)</div>\s*</div>' .
              '</form><ul class="flat-list buttons">';

for my $URL (@URLS){
    my $CONTENT =  get($URL);
    my $x       = '';
    my $count   =  0;
    
    while ($CONTENT =~ m{$regex}gs){
        $x .= $1;
        ++$count;
    }

    print "---$URL---\n";
    print $x; 
    print "Count: $count\n";
}