Select Code to Download

"ADELMAN","John","adad","Ray"
"AGAN","John","agag","Aditya"
"AHMED","John","ahah","Conor"

my $username;
my $color;
...
    ($username,$color) = (split /,/,$_)[2,3];
    if ("agag" =~ m/($username)/){print STDOUT "here is the username: 
+$username\n"}
}

here is the username: