Select Code to Download

             # When their name is...                Address them as...
my $salute = $name eq $EMPTY_STR                  ? 'Customer'
           : $name =~ m/(.*), \s+ Ph[.]?D \z /xms ? "Dr $1"
           :                                        $name
           ;