・まず、HTMLを表示させることができるように決まりごとの記述です。

print "Content-type:text/html\n\n";

・jcode.plをとりこみます。

require "jcode.pl";

・データの場所を指定します。

$data_file = "./data.dat";

・データファイルの中を収得します。

if(!open(IN,"$data_file")) { print "データファイルが開けませんでした。\n"; }
　@line = <IN>;
  close(IN);

・次に変換するためにデータを１行ずつとりこみます。
　ここでは一番定番な方法を使用します。

foreach $dataline (@line) {
  &jcode'convert(*dataline,'euc');
　push(@new,$dataline);
   }

・これで@newにはEUCに変換されたデータが全て入ります。
　このデータを検索に利用したりすると正確な検索ができます。