if ($esc) {
            $esc = 0;
        }
...
        elsif ( $char eq '\\' ) {
            $esc = 1;
        }

##</code><code>##

...
        elsif ( $char eq '\\' ) {
        }