商品を3000円購入した場合送料を
九州700円
関東まで800
関東以北1000
商品を5000円購入した場合送料を
九州700円
関東まで800
関東以北1000
10000円以上
全国送料無料というように購入金額に応じて送料を変更するような
改造したいのですがどうぞお知恵を拝借いたしたく思います。
どうぞよろしくお願いいたします・

地域にかかわらず、買い物額で送料を均等額差し引く例。
postage.dat の地域別のところを
九州(tab)700
関東まで(tab)800
関東以北(tab)1000  (tab) はタブキー打ち込み
としておき、税別金額 $SHOKEI で反応させる場合

foreach (@postage) {

    s/\n//g;
    if (/^#/) { next; }
    if (/^$/) { print "<option value=\"\"></option>\n"; }
    elsif (/^(.+)\t(.+)$/) {

        $j = $1; $j =~ s/://g;
# 追記
        if    ($SHOKEI >= 10000) { $2 = 0; }
        elsif ($SHOKEI >= 5000)  { $2 -= '差し引く金額'; }
        elsif ($SHOKEI >= 3000)  { $2 -= '差し引く金額'; }
#
        print "<option value=\"$j:$2\">$1$2</option>\n";
                                       # ↑ この$2を追記
    }
    else { s/\t//g; print "<option value=\"\">$_</option>\n"; }
}

呑兵衛＠大阪さまいつもありがとうございます。
うまく動いてからレスするつもりでしたが
もう少し時間がかかりそうなので
まずはお礼まで
うまく動きましたらまたご報告させていただきます。

申し訳ありません。