$work =~ s{%(\w+)(?:\.(\w+))?}{
    defined $2
        ? $var{$1}{$2}
        : $var{default}{$1}
}eg;