perl -le '$Da=406700; $Dp=356400; $Dm=361918; $pct = ($Da - $Dm) / ($Da - $Dp); print $pct'