use strict;
use warnings;

my $weather = do "weather.txt";

print $weather->[0]->{xml_api_reply}->{weather}->{forecast_information}->{city}->{-data},$/;

# prints
Miami, FL