Select Code to Download

my $numspells = ($doDeanStuff ? 1 : 0) 
              + ($doSeamusStuff ? 1 : 0)
...
              + ($doSeverusStuff ? 5 : 0); # it's really complicated

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

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

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