for (grep /^default_option_(.*)/, keys %def) {
    $s{"option_$1"} = $def{$_};
}