Select Code to Download

    my $salute;
    if ($name eq $EMPTY_STR) {
...
    else {
        $salute = "Dear $name";
    }

                 # Name format...                            # Salutat
+ion...
    my $salute = $name eq $EMPTY_STR                       ? 'Dear Cus
+tomer'
...
               : $name =~ m/ (.*), \s+ Ph[.]?D \z     /xms ? "Dear Dr 
+$1"
               :                                             "Dear $na
+me"
               ;