$ perl -E 'say 301*11.5 - 3010*1.15;' 4.54747350886464e-13