Select Code to Download

use strict;
use warnings;
...
map { $_->[0] =~ s/[^0-9]+/$test/ } @$raStruct;

print Data::Dumper->Dump([$raStruct], [q{raStruct}]);

$raStruct = [
              [
...
                '6'
              ]
            ];