$ref->{'phone'} =~ s/\015$//;

##</code><code>##

    $ref->{'phone'} =~ s/\r$//;