Select Code to Download

return sprintf("%.u" , ($1 - 32) / 1.8) . 'C'

return sprintf q{%.uC}, ( $1 - 32 ) / 1.8

$ perl -E 'say sprintf q{%.uC}, ( 75 - 32 ) / 1.8;'
23C
...
$ perl -E 'say sprintf q{%.1fC}, ( 75 - 32 ) / 1.8;'
23.9C
$