#!/bin/perl
map print,
map qq{$_->[0]$_->[1]$_->[2]\n},
map [split ','],
map {s/^(\*|\*\*|\*\*\*|\*\*\*\*|\*\*\*\*\*)+$/length($&).q[,,,]/e;$_}
map {s/^(\*\*\*|\*\*\*|\*\*\*|\*\*\*|\*\*\*)+$/,Fizz,,/;$_}
map {s/^(\*\*\*\*\*|\*\*\*\*\*|\*\*\*\*\*)+$/,,Buzz,/;$_}
map {s/^(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*)+$/,Fizz,Buzz,/;$_}
map {q$*$x$_}
map {1..$_}
map scalar <STDIN>,
1;