Select Code to Download

#!/usr/bin/perl

use POSIX;
...
$city =~ s/^\s*(.*?)\s*$/$1/;
my $speech_text = "Current conditions for $city, ";
print "City: " , $city , "\n";

<?xml version="1.0" encoding="LATIN1"?>

...
                <State>
                        NJ
                </State>