hey, i wouldn't use perl for this i'd just use a unix shell.. un-optimised version follows

cat <textfilename>|grep "LEVINE'S TEST FOR VARIANCES"|awk {'print $9'}
[download]

(prints the 9th block of text - blocks are seperated by whitespace)