まったくの勘だけど、とりあえずスクリプトの始めのほうにこれ書き加えてみたらどうなる？

use Encode::Alias;
define_alias( qr/s(hift.*)?jis$/i => '"cp932"' );