14 lines
409 B
Perl
14 lines
409 B
Perl
sub printVerse {
|
|
$x = ucfirst lc shift;
|
|
$x0 = substr $x, 0, 1;
|
|
$y = $x0 =~ /[AEIOU]/ ? lc $x : substr $x, 1;
|
|
$b = $x0 eq 'B' ? $y : 'b' . $y;
|
|
$f = $x0 eq 'F' ? $y : 'f' . $y;
|
|
$m = $x0 eq 'M' ? $y : 'm' . $y;
|
|
print "$x, $x, bo-$b\n" .
|
|
"Banana-fana fo-$f\n" .
|
|
"Fee-fi-mo-$m\n" .
|
|
"$x!\n\n";
|
|
}
|
|
|
|
printVerse($_) for <Gary Earl Billy Felix Mary Steve>;
|