#!/usr/bin/perl -p
s/(\d+\.?\d+)/$&*0.85/e;