#/usr/bin/perl
use strict;
use warnings;
my $dir = '/local/usr/prod/';
my $exp = 'PRODUCTS'
my $code = 'ITEM_1'
my @filelist =glob "${dir}*{$code}*{exp}*failed*";
foreach(@fileList){
next if -d;
my$ oldname=$_;
s/sold/ordered/;
rename $oldname,$_ or
$_=$oldname,
warn "can"t rename $oldnme to $_: $!"
}