Select Code to Download

%def = (
   default_option_use_log => 1,
...
   default_name => "stat_",
   default_option_save_state => "true"
);

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