for ( grep /^default_option_/, keys %def ) {

   $s{ (split /_/, $_, 2)[-1] } = $def{ $_ };
}