#!/usr/bin/perl
$FILE = "this is my file, i'm going to want this value later\n";
print $FILE;
require('./varstruct.pl');
print $FILE;
&VARSTRUCTOR('show', 'E: subs(VARSTRUCTOR)', './varstruct.pl'); # Test
print $FILE;

##</code><code>##

#
# # 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*)//))
#