Select Code to Download

#!/usr/bin/perl

...
    move($filename,"$date/") 
        or die "Couldn't move $filename to $date: $!";
}

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