$ perl -E " $W=1; say ( ( 0.3802 + ( 13.4739 * sqrt( ( $W / 0.9 ) ) ) ) + ( 4.6272 * ( $W / 0.9 ) ) ); " 19.7242709884476