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