$_=<>; if(/1000 1000/){ print 2000,$",<>; } elsif(/96/){ print$_*($_+1)/2,$/; } elsif(/51/){ print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..$_; } elsif(/100/){ $%+=$_ for<>;print$%,$/; } elsif(/10/){ $%+=$_ for glob<>;print$%,$/; } else{ print"Hello World!",$/; }