use warnings;
use strict;
use HTML::TreeBuilder::XPath;

my $p = HTML::TreeBuilder::XPath->new;
$p->parse(<<'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 = map { $_->as_trimmed_text }
	$p->findnodes('//*[@class="phone"]/p');
use Data::Dump; dd \%hash;

__END__

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