perl -wE 'say $|++ for 1 .. 5; say "--"; say $|-- for 1 .. 5' 
0
1
1
1
1
--
1
0
1
0
1