a suggested re-structure, or call it, My End

#!usr/bin/perl -w
use strict;

my $nothing = 0;
my $life = $nothing;
my $darkness++;

my $days--;
my $drive--;
my $hardship++;
my $regret = 0;
my $tommorrow = $nothing unless ++$life;
$life =$nothing;
$life = 0;
print $regret;
[download]

++$life because I think that if it could increment, then tomorrow wouldn't be nothing, so the parens shouldn't be there -- for me at least.