map print,
map {qq[$_\n]}
map {s/^(\*|\*\*|\*\*\*|\*\*\*\*|\*\*\*\*\*)+$/length($&)/e;$_}
map {s/^(\*\*\*|\*\*\*|\*\*\*|\*\*\*|\*\*\*)+$/Fizz/;$_}
map {s/^(\*\*\*\*\*|\*\*\*\*\*|\*\*\*\*\*)+$/Buzz/;$_}
map {s/^(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*)+$/FizzBuzz/;$_}
map {q$*$x$_}
map {length(q=*=)..$_}
map scalar <STDIN>,
length(q@o@);