请问怎么把字符串中多个/替换成1个?

请问怎么把字符串中多个/替换成1个?

请问怎么把字符串中多个/替换成1个/?
比如:
$a='123//456//7/9';
替换成'123/456/7/9';
坐等其他人来回答  
$a=~s/\/+/\//g;
是这样么?
应该没错,跑一下就知道了。