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