use warnings;
use strict;

my $data = <<FORCAST;