Select Code to Download

use strict;
use warnings;
...
for (@$AoH_orig) {$_->{'title'} =~ s/-/_/g};

print Dumper($AoH_orig);

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