Regex 从正则表达式结果中删除引号

我有以下代码：

$source = '<value_date spot_date="2014-11-24" tenor="TODAY">2014-11-20</value_date>';

#get the tenor
$source=~  /tenor=\s*(.*?)\s*>/;

print $1;

$source='2014-11-20'；
#获得男高音
$source=~/tenor=\s*（.*？\s*>/；
打印$1；

这将打印“今日”的结果（双引号是结果的一部分）。我想删除开头和结尾的双引号。我想知道今天的结果。这可以在正则表达式中完成以提取基调吗？或者，删除第一个和最后一个字符或用空格替换“的下一个最佳方法是什么

---

感谢您的帮助。

修改模式，使

“

不属于捕获组：

$source =~ /tenor="(.*?)">/;

---

我应该提到的是，我没有任何模块可以进行xml解析，所以请不要为此而感到悲伤：）

useXML:：Simple；打印XMLin（$source）->{tenor}