$login_name = sprintf "%.1s%.1s%02d%02d%02d", lcfirst $first_name, lcfirst $last_name, split /\//, $bday;