use File::Copy;

my @list = <D:/CPPDaily/SOURCE/SOURCE/HMS/*_valid1.csv>;

foreach my $file(@list){
  my $from = $_;
  chomp $from;
  (my $to = $from) =~ s/_valid1//g;
  move($from, $to) or die(qq{failed to move $from -> $to});
}