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

##</code><code>##

my $username;
my $color;

while(<>){
    chomp;
    s/"//g;
    ($username,$color) = (split /,/,$_)[2,3];
    if ("agag" =~ m/($username)/){print STDOUT "here is the username: $username\n"}
}

##</code><code>##

here is the username: