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