Select Code to Download

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

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