The answer is that none of them is over 88% full.

You are welcome.

use strict;
open LOG, "C:/fs.log";
$/="\n\n";
while(<LOG>){
    m |^(\w+)\n|; print "Machine $1\n";
    while (m|\n(/.*?\s).*?(\d+)%|gi) {
        print "\t",$2 > 88? "WARNING --> ":"","$1 at $2 %\n"
    }
}
[download]

while (<FILE>) {
    my $boxname;
    if ( ! ( /^Filesystem/ ) ) {
        $boxname = $_;
    } else {
        while (<FILE>) {
            my ( $title, $blocks, $used, $avail, $percent, $mounted ) 
+= split /\s+/;
            last if ( !defined( $title ) );
            my $number = ( $percent =~ /(\d*)\%/ );
            if ( $number > 88 ) {
                print "$boxname's $title is at $percent!\n";
            }
        }
    }
}
[download]

Update Should be split \/s+\ rather than \/s*\

Did you mean split(/\s+/)? split(/\s*/) will split it into individual characters because /\s*/ can match a 0 character string.

$/ = "";
while (<>) {
  my ($box) = /(.*)/;
  my ($t_used, $t_avail);

  for (split /\n/) {
    my ($fd,$used,$avail,$per) =
      /^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\%/ or next;
    $t_used += $used;
    $t_avail += $avail;
    warn "$box:$fd at $per%\n" if $per > 88;
  }

  my $t_per = int(100 * $t_used / $t_avail);
  warn "$box at $t_per%\n" if $t_per > 88;
}
[download]

read on at this

m/(\/.+) +(\d) +(\d) +(\d+) +(\d)% +(.+)/
[download]

you are right to suspect that this would not work - the single \d as opposed to \d+ before the % would mean that the regex would fail to match unless the % was between 0 and 9.

what I expect you are looking for is for(<>) { /(\d+)%/; print if $1 >= 88 }

Thanks larry. Typo on my part. It was supposed to be (\d+)%

------
The Price of Freedom is Eternal Vigilance