>>236
その例でいくと

unpack("H2",$1)

のところを

unpack("H2",eucをsjisに変換する関数($1))

にすればいいってことでしょ。