#
# # Extract scalars and arrays. If not an array used in push, require an equals sign.
# while (($FILE =~ s/([^\\]|[^\\]\\\\)([\@\$][^\d\W]\w*(\[.*?\])?)\s*=//)||
#   ($FILE =~ s/push[^\w_]*([^\\]|[^\\]\\\\)(\@[^\d\W]\w*)//))
#