Select Code to Download

if ($key =~ /^PERIODEND/ && !$budgetdata) {
    BudgetGroup->budget($input, $myclass, 3)
}

my $key = "PERIODEND";
my $budgetdata = 0;
...
if ($key =~ /^PERIODEND/ & !$budgetdata) {
    BudgetGroup->budget($input, $myclass, 3)
}