$ perl -E 'say $|; { local $| = 1; say $| } say $|'
0
1
0