sub func_search
　{
　chomp (my $file_name = <STDIN>);
　-f $file_name or die "ファイルが見つかりません\n";
　open FILE, "<$file_name" or die $!;
　print "\n検索対象文字列を入力してください\n";
　print "文字列 = ";
　chomp (my $moji = <STDIN>);
　while (my $line = <FILE>)
　　{
　　if ($line =~ /$moji/)
　　　{
　　　print "$line";
　　　}
　　}
　close FILE;
　}

というのは指定したファイルから任意の単語がある行を抜き出して表示する、
というプログラムなのですが、実行のときに、目的のファイルから
"perl" もしくは "Perl" という単語がある行を表示させたい場合、
$word を入力するときに [Pp]erl と入力すればできるように、
正規表現で $word を指定できますよね。

このとき例えば "perl" を含む行以外を表示させる$wordの指定の仕方ってあるのでしょうか？
この場合はプログラムを書き直すしか方法はないのでしょうか？