Your code works for me with perl 5.10 & 5.8.8 after removing qw//:

my $string = 'ITEM-####';

print "$string\n";
$string =~ s/#/\\d/g;
print "$string\n";
[download]

output:

ITEM-####
ITEM-\d\d\d\d
[download]