# When their name is... Address them as...
my $salute = $name eq $EMPTY_STR ? 'Customer'
: $name =~ m/\A((?:Sir|Dame) \s+ \S+) /xms ? $1
: $name =~ m/(.*), \s+ Ph[.]?D \z /xms ? "Dr $1"
: $name
;
####
$conditional ? foo() : bar();
##
##
$conditional ? foo($arg_1) : foo($arg_2);
##
##
$conditional ? $foo++ : $foo += 2;