my $numspells = ($doDeanStuff ? 1 : 0) 
              + ($doSeamusStuff ? 1 : 0)
              + ($doHarryStuff ? 2 : 0)  # Harry's stuff takes multiple spells
              + ($doRonStuff ? 1 : 0)
              + ($doSeverusStuff ? 5 : 0); # it's really complicated

print "Budget for this incantation is $numspells spells\n";


##</code><code>##

my $numspells = 0;
$numspells += 1 if ($doDeanStuff);
$numspells += 1 if ($doSeamusStuff);
$numspells += 2 if ($doHarryStuff);  # Harry's stuff takes multiple spells
$numspells += 1 if ($doRonStuff);
$numspells += 5 if ($doSeverusStuff); # it's really complicated


##</code><code>##

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/