Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
           $_->{pop},
           $_->{condition};
}

C:>weather.pl
Enter city or zip code (Xxxxx): Xxxxx

...

Time      TempF TempC Rain %  Conditions
malformed JSON string, neither array, object, number, string or atom, 
+at character offset 0 (before "(end of string)") at C:/Perl/site/lib/
+WWW/Wunderground/API.pm line 113.

$self->raw($result);

    if ($format !~ /(json|xml)/) {
...
    my $struc = $format eq 'json'   # <--- LN 113 here
      ? decode_json($self->raw)
      : XMLin($self->raw);