use strict;
use warnings;

my $username;
my $color;

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