open F,"<$^X";
binmode F;
my $x = join '',<F>;
$x=~s/^.*magicstring//s;
eval $x