$file = <USERS>;

@users = ([split(/\||\n/,$file)]);