Select Code to Download

@month = split //, $DOB[0];
$digits_month = @month;

$digits_month = length $DOB[0];

my $bday = "8/16/97";
my $firstname = "Benjamin";
...
    lc substr $firstname, 0, 1;
    . lc substr $lastname, 0, 1;
    . $formatted_bday;