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

my $dom = Mojo::DOM->new(<<'HTML');
        <div class="phone">
          <div class="icon"></div>
          <p class="title">Telephone</p>
          <p>0123-4 56 78 90		  
		  <p class="title">Telefax</p>
          <p>        </div>
HTML

my %hash = @{ $dom->find('p.title')->map(sub {
	return ( trim($_->text), trim($_->next->text) ) }) };
dd \%hash;

__END__

{ Telefax => "", Telephone => "0123-4 56 78 90" }