皆様宜しくお願い致します。。。
「検索文字列の途中一致ではなく、前方一致検索の仕方」
を教えて頂きたいです。

例えば、
「ネット」と入力して検索をすると、
「ネットサーフレスキュー」はＯＫ！
「ジャパネットタカタ」はＮＧ！
「ネットーコマーシャル」はＯＫ！
「ゴルフネット」はＮＧ！
という感じです。

おそらく、

#ヨミガナ(マッチ)
if ($FORM{'YOMI'} ne 'all') {
	if ($YOMI =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'YOMI'}/i) { ; } else { next; }
}

の部分を改造すれば良いのでしょうが分かりません。
どなたか宜しくお願い致します。

if ($YOMI =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'YOMI'}/i) { ; } else { next; }
からざっくり削除して
if ($YOMI =~ /^$FORM{'YOMI'}/i) { ; } else { next; }
にすれば、たぶん。

★★★　しあわせのツボさん！ありがとうございました。　★★★

早速試してみたところ理想通りになりました。
本当に感謝しています。

完結です！