use warnings;
use strict;
use Time::Piece qw(localtime);

my $t = localtime;
my $today = $t->day();

if ($today eq 'Mon') {
    # search and move
}
elsif ($today eq 'Fri') {
    # destroy
}