BEGIN{
    *CORE::GLOBAL::old_sprintf = *CORE::GLOBAL::sprintf;
    *CORE::GLOBAL::sprintf = sub { 
          my $formatted_string = old_sprintf(@_);

          # 0.###Z ==> .###
          $formatted_string =~ s/([^0-9])0(\.\d+)Z/$1$2/g;

          return old_sprintf(@_);
    }
};