%25E5%25A4%25A7%25E6%25B1%259F%25E6%2588%25B8%25E7%25B7...
$string =~ s/%25([a-fA-F0-9][a-fA-F0-9])/%$1/g;