my $server = 'E:';
my $folder = 'A_TMP';
my $regex  = qr{/\.\d.+};

rmtree($server."\\".$folder) if (-d $server."\\".$folder.$regex);