Help for this page

Select Code to Download

Select or download this

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

Select or download this

Win8 Strawberry 5.8.9.5 (32)  Thu 11/26/2020  5:03:36
C:\@Work\Perl\monks
...
print $salute;
^Z
xyzzy