正则匹配取值

[sxqinge]

大神好。
我想从一个字符串中提取出想要的信息，示例如下：
源字符串：Subnetwork=BSS201,ManagedElement=BSCME201,BssFunction=201,BtsSiteMgr=1
目标字符串：Subnetwork=201@BSC=201@BTS=1
------
具体需求描述：
使用正则，根据源字符串来生成目标字符串，比如上面的例子，Subnetwork取字母后面的数字，BSC和BTS是目标字符串新的名字，分别取BssFunction和BtsSiteMgr的值。

[卖水果的net]

多给出几条测试数据。

[z123zjf]

select regexp_replace('Subnetwork=BSS201,ManagedElement=BSCME201,BssFunction=201,BtsSiteMgr=1', '(Subnetwork=)[^[:digit:]]+([[:digit:]]+).*BssFunction([=[:digit:]]+).*BtsSiteMgr([=[:digit:]]+)', '\1\2@BSC\3@BTS\4' ) from dual