Ich hätte vielleicht mal den gesamten Ausdruck posten sollen (sorry):
$_ =~ s/(<%\s*(\S+?)\s*%>)/exists $HASH{$2} ? $HASH{$2} : $1/eg;

Es soll bei FALSE ja nicht $_ sondern der Match zurückgegeben werden.