Perlito5 - perl5 - emit shift left/right