SJISページ上で、知人のCGIとデータリンクをするために、
故あって、アドレスの文字列をEUC-JPにURLエンコードしたいのですが、
そんな事が出来るのでしょうか？

SJIS上で↓
$word =~ s/(\W)/'%' . unpack("H2", $1)/eg;
とやっても、当然SJISのデータしか出てきません。

出来るのであれば、ご教授いただけると嬉しいです。