my $esc = qw(\d);
my $string = qw(ITEM-####);
$string =~ s/#/$esc/g;