#!/usr/bin/perl

my $key = "PERIODEND TODAY";
#my $budgetdata = "lots of numbers";

print "Hello\n";

if ( $key =~ /^PERIODEND/ &! $budgetdata) {
        print "Got here\n";
} else {
        print "Sorry =(\n";
}