如果$defaultData和$tmpData没有值，很难准确地说出来，但当您的$defaultData模式在第二个=~中不匹配时，就会看到这样的结果。
毕竟，曼 perl 瓦说：
$与上次成功模式匹配匹配的字符串（& T）
我会这样组织它：

#Search tmpData for a <whack> tag and replace with REPLACEMENTSTRING (this works)
$tmpData =~ s/<\s*whack\s+([^\/>]*)(\/?>)/"$REPLACEMENTSTRING"/i;

if($defaultData ne '') {
  print "pre $1 And $2... '$&'\n";

  #Search for data inside <whack> tag and closing tag </whack> and remove them.
  if($tmpData =~ s/$defaultData<\/whack>$//) { 
    print "FOUND $1 And $2... '$&'\n";  
  } else { 
    print "NOT FOUND";
  } 
}

我猜您的第一个替换操作是更改$tmpData，从而使第二个替换模式不匹配。
也就是说，我认为如果你只是想获取你的whack tag中的内容，你可以用一个替换操作来简化你的代码，如下所示：

if ($tmpdata =~ s/<whack>(.*?)<\/whack>/$1/) {

    print "Found whack tag value: $tmpdata\n";
}

更新：修正了斜线

为什么要执行第二个正则表达式？yo“WHACKREPLACEMENT-idname 2“helloworld不以</whack>结尾。请记住，$1、$2和$&包含最后一个成功匹配的值，在您的示例中，它是第一个正则表达式。
$1，$2，$&和$tmpData没有改变的原因是你的第二个正则表达式与$tmpData中的任何内容都不匹配。如果你修改了你的代码来显示相关的代码，这样我们就可以看到发生了什么，很容易指出原因。相反，你发布了更多不相关的信息。
让我来向您展示一下，将代码发布到清楚的位置是多么容易：

#!/usr/bin/perl -w

use strict;

my $defaultData = "yo";
my $tmpData = "$defaultdata <whack id='IcedDante'>helloworld</whack>";
my $REPLACEMENTSTRING = "WHACKREPLACEMENT-idname";

#Search tmpData for a <whack> tag and replace with REPLACEMENTSTRING (this works)

$tmpData =~ s/<\s*whack\s+([^\/>]*)(\/?>)/"$REPLACEMENTSTRING"/i;

if($defaultData ne '') {
    print "pre $1 And $2... '$&'\n";

    #Search for data inside <whack> tag and closing tag </whack> and remove them.
    $tmpData =~ s/$defaultData<\/whack>$//;
    print "FOUND $1 And $2... '$&'\n";  
}

（我试图根据你给我们的信息重建你的代码，但这是不可能的。）

对不起，伙计们，问题是我没有咀嚼我的文件输入行，结果$defaultData在正则表达式的结尾有一个“\n”字符。
为了保存这段代码成为一场灾难，我将解释我所做的事情，希望它能在将来帮助其他人。逻辑上的错误甚至在到达这段代码之前就发生了。我试图提取开始和结束“whack”标记之间的数据：

<whack>Extract this data.</whack>

使用以下代码：

$defaultData = substr $tmpData, pos($tmpData);
$defaultData =~ s/(.+)<\/whack>/$1/;

我没有意识到这段代码会提取“"之前的所有文本，以及 * 该行标记之后的所有内容 *。在本例中，这是一个换行符。我将正则表达式替换为：

$defaultData =~ s/(.+)<\/whack>.*/$1/;

当然，这将是不可能确定的基础上，我提供了在原来的问题，我会尝试做得更好，在未来的工作。