use warnings;
use strict;
use Mojo::DOM;
use Mojo::Util qw/trim/;

my $dom = Mojo::DOM->new(<<'HTML');
  <div class="address">
          <div class="icon"></div>
          <address>
            Sample Street 123<br/>45678 Randomcity          </address>
        </div>
HTML

my $addr = $dom->find('.address address')->first;
print "[[$addr]]\n";
$addr->find('br')->map('replace',"\n");
print "[", trim($addr->text), "]\n";

__END__

[[<address>
            Sample Street 123<br>45678 Randomcity          </address>]]
[Sample Street 123
45678 Randomcity]