# untested
my @users = ( $file =~ /__BEGIN__\n(.*?)\n__END__/gs );