perl多个条件的匹配的示例代码

#!/usr/bin/perl

open(INFILE, "E:/out.txt");
open(OUTFILE, ">E:/11seq.txt")|| die "Cannot open the newfile: $!n";;

while (<INFILE>) {
       if (/Query=|Sbjct:|*/){
        print OUTFILE "$_";}
}
exit;