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"
    }
}