Select Code to Download

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

my $AoH_new = [ map { my %tmp = %$_; $tmp{title} =~ s/-/_/g; \%tmp } @
+$AoH_orig ];