perl -le'print(($_%3?"":Fizz).($_%5?"":Buzz)or$_)for 1..100'