regex - perlの正規表現にgrepを含める方法

Question

だから私は現在、この問題で立ち往生しています: 1. LIST などの定数リストを宣言します。リスト、行を印刷するか、それと一緒に何かを印刷します。

これは私が現在持っているものです:

use constant LIST => ('keyword1', 'keyword2', 'keyword3');
sub main{
    unless(open(MYFILE, $file_read)){die "Error\n"};
    while(<MYFILE>){
        my $line = $_;
        chomp($line);
        if($line =~ m//){#here is where i'm stuck, i want is if $line has either of the keywords
            print $line;
        }
    }
}

プログラムに実行させたいことと一致させるには、そのif文で何をすべきですか? $line変数を持たずに単に使用することなく、そうすることができ$_ますか? $line だけを使用したのは、grep が自動的に LIST の定数を に配置すると考えたから$_です。ありがとう！