The Name Game (idea)

Perl can play the Name Game, too.

#!/usr/bin/perl -w

my $name = lc( $ARGV[0] || 'Shirley' );
my ($irly_name) = $name =~ m/^[^aeiouy]*(.*)/;
my $underline = "-" x length($name);

print <<__NAME_GAME__;
\U$name!\E
$underline-
\u$name, \u$name,
Bo B$irly_name,
Banana fana fof$irly_name,
Mi my mom$irly_name,
\u$name!

__NAME_GAME__