my $mybadmatch="_white.tif";
chdir( $tiff ) or mail ($to = $dllist, $from = $dllist, $subject= "can not move $file",  $body ="can not move $file" );
(@tiff_list) = glob "*tif";
my $upload_count = @tiff_list;

foreach my $file (@tiff_list) {
if ($file =~ m/$mybadmatch/is)
{
print "$file is white background match\n";
my $old = "$tiff$file";
my $new = "$whitefiles";
copy ($old, $new) or mail ($to = $dllist, $from = $dllist, $subject= "can not move $file",  $body ="can not move $file" );
open FILE, '>> /Users/flieckb/Desktop/whitefiles.txt' or warn $!;
print FILE "$date\t$file\t";
print FILE "\n";
}
	else
{
print "$file :normal production image\n";
}
}
close FILE;


chdir( $whitefiles ) or mail ($to = $dllist, $from = $dllist, $subject= "can not get to $whitefiles",  $body ="can not get to $whitefiles");
(@white_list) = glob "*tif";
foreach $file (@white_list) {
   my $oldfile = $file;
#    s/.* //g;
   rename($oldfile, $file);
}