my $bday = "8/16/97";
my $firstname = "Benjamin";
my $lastname = "Biederman";

my ($month, $day, $year) = split /\//, $bday;

my $formatted_bday = '';

if (length($month) == 1) {
    $formatted_bday = "0";
}
$formatted_bday .= $month;

if (length($day) == 1) {
    $formatted_bday .= "0";
}
$formatted_bday .= $day;
    
my $login_name =
    lc substr $firstname, 0, 1;
    . lc substr $lastname, 0, 1;
    . $formatted_bday;