perl语言里怎么把[+]换成[%‘,’%]

if($key=~m/¥+/){
  $key=~s/¥s¥+¥s/_OR_/g;
  $key=~s/¥+¥s/_OR_/g;
  $key=~s/¥s¥+/_OR_/g;
  $key=~s/¥+/_OR_/g;
}

这是别人写的把[+]变成[OR],我想把[+]变成[%','%]该怎么写？

if ($key =~ m/\+/) {
  $key =~ s/\s+/%','%/g;
  $key =~ s/\+/%','%/g;
}

望采纳。