my $newname = $filename;
$newname =~ s/_\d{6}//;
move($filename,"$date/$newname") 
    or die "Couldn't move $filename to $date/$newname: $!";