(my $new = $dn) =~ ...