my $foo = do { no locale; sprintf ... };