package Phone;
sub prettify {
    local ($_) = @_;
    return eval {
        /^$/ and die "No number\n";
        # do something to modify $_ here
        $_;
    };
}