use strict;
use warnings;
my $weather = do "weather.txt";
print $_->{xml_api_reply}->{weather}->{forecast_information}->{city}->
+{-data},$/  for @$weather;
[download]

Prints:

Miami, FL
Boston, MA
[download]