#!/usr/bin/perl -p
$_=(($_-32)*5/9)."\n";