Select Code to Download

my($username1,$username2)=($username)x2;
$username1 =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)\@.*/$1/g;
...
$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/;

$username =~ s/([a-z])([a-z]+)_([a-z])([a-z]+)\@.*/uc($1).$2." ".uc($3
+).$4/ge;