perlで以下の記述の意味についてご助言願いたく。

質問

while( <$_old> ){
if( $_ =~ /^$var\:(?!\*RK\*)/ ){
print "A\n";
}else{
print "B\n";
}
}

上記の上から2行目の
if( $_ =~ /^$var\:(?!\*RK\*)/ ){
において、
()の中の先頭に ?!　とあるのですが、
これはどういう解釈なのでしょうか？

ご助言ご鞭撻の程宜しくお願い致します。

回答No.1

notnot · ベストアンサー

(?!～～) で、「～～でない」という意味です。

つまり、行頭から「$varの中身」と「:」があり、その次が「*RK*」でない文字列