my $Aref_new =[ map {(my $x=$_->{'title'}) 
                 =~ s/ /_/g;$x } @$AoH_orig]; 
print Dumper(\$Aref_new);