$data{value} = 'abc.VALUE.xyz';

sub process_value {
    my $digit = 1000;
    $data{value} =~ s/VALUE/$digit/;
    print "\$data{value} $data{value}\n"
}

process_value();