$test = <<'END';
XXWY
XXWZ
END

$count = $test =~ s#(XXW?Y)##gi;
print "REMOVED: <<$1>>\nCOUNT: $count\n";