use strict;
use warnings;
use Encode;

my $username;
my $color;
my $filename = shift @ARGV;
my $fh;

open($fh, '<:encoding(UTF-16le):crlf', $filename);
binmode STDOUT, ':encoding(UTF-8)';

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