perl - Perl - 単語を検索し、残りの行を変数に出力します

Question

簡単な質問があります。perl にファイルを読み取らせ、特定の単語を検索させるにはどうすればよいでしょうか。一致する単語が見つかった場合は、残りの行を個々の変数に出力します。

検索したいASCIIファイル（「region_list」と呼ばれる）には、次の3行が含まれています。

ハワイ 40 5 -140 -180

サモア -5 -25 -165 165

太平洋 70 -65 290 110

これまでのコードは次のとおりですが、機能していないようです。

#!/usr/bin/perl -w
#
# Required Libraries
use Date::Calc qw(:all);
use Date::Manip;
use Math::Trig;
use warnings;
use Time::Local;
use POSIX 'strftime';
use lib '/usr/bin';
use Cwd qw();

my @region = ("hawaii", "samoa", "pacific");

open my $listreg1, "$BIN_DIR/region_list" or die "Could not open: $!";

  ($reg2,$max_lat, $min_lat, $max_lon, $min_lon) = split(" ",$listreg1);


   if ($region eq $reg2) {
            print "LUCREG $region $reg2 $max_lat, $min_lat, $max_lon, $min_lon \n";
    }



close $listreg1;