$_=<>; for(/./g){ $a=($_+$a)%3; $b=($_-$b)%5; } print+(Fizz)[$a].(Buzz)[$b]||$_