my $anrede = $name =~ /heinz-willi/i ? 'Hi!'
            : $name =~ /könig/i       ? 'Majestät!'
            : $alter < 6              ? 'Pimpf'
            :                           'Guten Tag';