#!/usr/bin/perl
# NOTE: may break outside the US.
use warnings;

my  $country = 'at war';
my  $income  = 0;
our $debt    = 7_453_762_527_076.87;
my  $share   = 25_291.66;

our $allies  = undef;

our $future = ($share > $income && $country =~ /war/ && !defined $allies) ? 'depressing' : 'encouraging';

print $future;