print +(1) qw /\#/ ($foo || 0) + ($bar || 0)