Select Code to Download

#!/usr/bin/perl

...
my $AoH_new = map { $_->{'title'} =~ s/-/_/g } @$AoH_orig;

print Dumper($AoH_orig);

$VAR1 = [
          {
...
            'title' => 'ccc_ccc'
          }
        ];