use warnings;
use strict;

my $nDateStamp = '082411';
my $filename   = '17000_DM161_082511.dat';
print "$filename\n";
$filename =~ s/082511/$nDateStamp/;
print "$filename\n";

__END__

17000_DM161_082511.dat
17000_DM161_082411.dat