use strict;

my $username;
my $color;

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