or that variant:

my $name = $ARGV[0] || 'Micah';

$_ = <<SONG;
<X>, <X>, bo-b<X-1>
Banana-fana fo-f<X-1>
Fee-fi-mo-m<X-1>
<X>! 
SONG

s/<X-1>/substr $name,1/eg;
s/<X>/$name/g;
print;
[download]