Regex 有没有办法将替换正则表达式和匹配测试结合在一行中？

答案可能是显而易见的，但我想知道是否有一个较短的方法来写这个：

if ($line =~ m/^REF:  /){
    $line =~ s/^REF:  //;
    # do something else
}

---

s//

返回所做替换的次数。与您的代码等效的代码是：

if ($line =~ s/^REF:  //) {
    # do something else
}

---

s//

返回所做替换的次数。与您的代码等效的代码是：

if ($line =~ s/^REF:  //) {
    # do something else
}

你是说

if ($line =~ s/^REF:  //){
    print $line."\n";
}
else {
   print "Line not touched\n";
   }

你是说

if ($line =~ s/^REF:  //){
    print $line."\n";
}
else {
   print "Line not touched\n";
   }