foreach (map { /^default_option_(.*)/ ? $1 : () } keys %def) {
    $s{"option_$_"} = $def{"default_option_$_"};
}