Помогите перевести строку из js в  perl:



По идее должен получиться одинаковый ответ, т.е. мне нужно получить и в perl тоже 
-1024 так же как и с js.
При положительных числах еще как то возможно понять как это работает, но при использовании отрицательного числа при сдвиге...

а при отрицательных мне кажется зависит от архитектуры

У меня:
This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread

Архитектура может конечно, но ведь и js на этой же самой машине выполняется, что и перл.

Добавлено через 5 минут и 33 секунды
Наверно будет лишним изобретать какие то дополнительные преобразующие функции в текстовую строку, а там index, regexp, join и т.п.
Очевидно чего то я не знаю, и не понимаю, но должно быть элементарное подобное действие и в перл.

Это вообще ни о чём не говорит - к примеру, 32 битные бинарники на x64 машине.

Чтобы получить ответ "как в js" для данного примера, то 



Ну и Капитан Очевидность советует читать документацию.

Как вариант

Так :

совсем неправильно? или можно так делать, ответы вроде бы для этих чисел сошлись...

Добавлено через 12 минут и 42 секунды
Если и perldoc (никак не научусь его читать) говорит что целые используются иначе без знака как в C
(С для меня только в перспективе), то получается что последний мой вариант с умножением на -1 должен быть нормальным 

use integer; print -33538176>>15; решение очень подходит, 
но все же попробую без привлечения дополнительных модулей.

use integer - не модуль, а прагма. perldoc perlop, perldoc integer.

Прагма оказывается очень полезная штука! надо поизучать. Спасибо DurRandir!