... sub
                  a   {$
                   _ ^=1}

##</code><code>##

sub flip_flop {
  $_ ^= 1;
}