for(keys %fdat) {
    $fdat{$1} = $fdat{$_} if /^redirect_(.*)$/;
}