local $/= undef; # read entire file at once my @text=;