#!/usr/bin/perl -w

use strict;

while (<DATA>) {
    chomp;
    next unless (m!\A([+-]?(?:\d*\.)?\d+)([CF])\z!);

    print "$_ is ", (
        $2 eq 'C' ?
            $1 * 9 / 5 + 32 . 'F' :
            ($1 - 32) * 5 / 9 . 'C'
    ), $/;
}

__END__
12C
13C
14C
15C
-40C
+32C
.5C
15.8C
60.44F
55.4F
-.7F