for (@$AoH_orig) { $_->{title} =~ s/-/_/g; }