OK, Zed_Lopez was a lot faster to reply, but what I came up with, on the same lines, is a bit shorter :-), FWIW:

my $login_name = lc sprintf '%.1s%.1s%02d%02d%02d',
   $firstname, $lastname, split '/', $bday;
[download]

dave