RE !~

可以用 ！~表示没匹配上。

#!/usr/bin/perl

$string = shift;

if ($string !~ /test/i){
    print "no test";
}else{
    print "test";
}
print “\n”;