print (1) qw /#/ $foo + $bar