#!/usr/bin/perl

use strict;
use warnings;
use Mojo::DOM;
use feature 'say';

my $html = 'Information</div><br><div class="formline"><div class="formlabel">FillDB File Size Limit:</div><div class="forminput">0.0% ( 0 / 3145728 Bytes )</div></div><div class="formline"><div class="formlabel">FillDB File Count Limit:</div><div class="forminput">0.0% ( 0 / 10000 Files)</div></div><br><hr><div';

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

for my $element ( $dom->find('.forminput')->each ){
  say $element->text;
}


##</code><code>##

0.0% ( 0 / 3145728 Bytes )
0.0% ( 0 / 10000 Files)