my($username1,$username2)=($username)x2;
$username1 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)\@.*/$1/g;
$username2 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)\@.*/$3/;
$username1 =~ tr/[a-z]/[A-Z]/;
$username2 =~ tr/[a-z]/[A-Z]/;
$username =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)/$username1$2 $username2$4/;