perl 正则表达去括号变负号

改变括号中负号的Perl正则表达式介绍改变括号中负号的perl正则表达式:#！/usr/bin/perl my @ a =( quot；(120，230，000) quot；， quot(ABC) quot；， quot123,000 quot);#如何把上面有数字并且用括号括起来的数变成负数，但是括号里没有数字