Select Code to Download

$bday = "8/16/97";
$firstname = "Benjamin";
...
$login_name = lc $new_username_a[0];
$login_name .= lc $new_username_b[0];
$login_name .= $bday;

$login_name = "$firstname $lastname $bday";
$login_name = s/^(^\C)\s(^\C)\s(^\d{1,2})\/(\d{1,2})\/(\d{1,2})/$1$2$3
+$4/;  
#notice that to 2 digit bit is not reflected by this regex