ビットローテート

C言語のint型でシフト演算＆ローテート（漏れたビットを逆側に付ける）してたのを、Perlでやろうとして、失敗した。
Perlは型がintじゃないので、単純にシフトしてもダメでした。
自分でこりこり書いたけど、拾ってきたやつのほうがすっきりしてたので、流用。

作者さま
http://zaruya.seesaa.net/article/22951378.html

$bit_string =
( $bit_string <<= $shift_width % $frame_size )
& 2 ** $frame_size - 1 | $bit_string >>$frame_size;