...
$attr &= ~COMPRESSED;
Win32::File::SetAttributes($path, $attr);