while (<SOMEFILE>) {
    chomp;
    $found = 1 if $user =~ /$_/o;
}