s|\b($RE{num}{decimal})%|$1 * 0.01|eg;