That looks a LOT like fixed-width column data, and if that's the case, you might just find it easier to use unpack. The description of unpack's template system is found in the documentation for pack. And you can find a wealth of great information in perlpacktut.

If you really want a regexp solution, this might just do it:

my @last_columns;
while ( my $line = <DATA> ) {
    if ( $line =~ /TEST FOR VARIANCES/ ) {
        if ( $line =~ /([.\d]+)[\s|]*$/ ) {
            $last_column = $1;
            push @last_columns, $1;
        }
    }
}
print "$_\n" for @last_columns;
[download]