use charnames ':full';

my $fahrenheit = "\N{DEGREE SIGN}F";

# ... use $fahrenheit where you otherwise would type °F