True, but why not do this:

sub format_email_text
{
   return join("\n", 
      sprintf("%-30s %-50s", "Player Name:",   $player),
      sprintf("%-30s %-50s", "Parent's Name:", $parent),
      sprintf("%-30s %-50s", "Member ID:",     $memberid),
   );
}

...
$text = format_email_text();
...
[download]

It would probably be cleaner if the data was passed as arguments, too:

sub format_email_text {
   my ($player, $parent, $memberid) = @_;

   return join("\n", 
      sprintf("%-30s %-50s", "Player Name:",   $player),
      sprintf("%-30s %-50s", "Parent's Name:", $parent),
      sprintf("%-30s %-50s", "Member ID:",     $memberid),
   );
}

...
$text = format_email_text($player, $parent, $memberid);
...
[download]