perl把不匹配的那些行打印出来

1.经常会遇到把不匹配某些特征的行打印出来。可以用！~来操作（含义是不匹配）。

#! /usr/bin/perl

use 5.010;
use strict;

if (-e "get_file.txt"){
    say "get_file is exist";
    unlink "get_file.txt";
    say "get_file is delete";
    }

open my $fix_file,'>',"get_file.txt" ;

while(<>){
    if (/w_mps|rake_post|lte_csi|lte_cst|u_pss_top/){
        if ($_ !~ /pmi/){
        #if ($_ !~ /pmi.*data/){
        printf $fix_file $_;
        }
        }
    }
close $fix_file;