perl -e "use Data::Dumper; open(H,qq|stocksymbols.txt|) or die $!; local $/; my $allfile .= <H>; close(H); if($allfile=~m/(\[\[.*\]\])/s){@stuff = eval($1) }; print Dumper \$stuff[0]->[1]->[0];"
$VAR1 = \'BACPRV';