open(IN, $0);
@file = <IN>;
close IN;
$FILE = join (' ',@file);
while ($FILE =~ s/[\@\$][a-zA-Z]\w+//)
{
   $ONE_VAR = $&;
   $ALL_VAR .= $ONE_VAR =~ /\$/ ? "$ONE_VAR='';" : "$ONE_VAR=();";
}
eval $ALL_VAR;