you want assignment, not an equality test.
you want $user = split /.*\(/;