#!/usr/bin/perl
use strict;
use warnings;
use Mojo::DOM;
use Mojo::Util qw(trim);
use feature 'say';

my $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>just the fax ma\'am
</div>';

my $dom = Mojo::DOM->new( $html );
my $phone = trim( $dom->at('div.phone > p:nth-of-type(2)')->text );
say $phone;
my $fax = trim( $dom->at('div.phone > p:nth-of-type(4)')->text );
say $fax;