use strict; use warnings; open my $tempOut, '>', 'delme.txt' or die "Can't create temp file: $!\n"; print $tempOut <){ chomp; s/"//g; my ($username,$color) = (split /,/,$_)[2,3]; next if ! defined $color; print "here is the username: $username\n" if "agag" =~ m/($username)/; }