Well, simplistically I could do :

open(FILE, "< $file") || die "Couldn't open $file: $!\n";
@array = <FILE>; ## Assume no multiline stuff.. for now
@strings = grep(/^\s*\@$arrayname\s*=\s*/, @array);
[download]

$string[0] then contains the piece of perl code I wish to execute. Now I thought of really hacky stuff like dropping it into a tempfile and then require'ing the file, but thats just icky. :)