use strict;

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

my $uname = lc(substr($firstname,0,1) .
  substr($lastname,0,1)) .
  sprintf("%02d"x3, split m|/|, $bday);

print $uname;