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();
...

##</code><code>##

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);
...