Regular Expression Question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a file that looks like this

box1
Filesystem           1k-blocks      Used Available Use% Mounted on
/dev/hda1               124427     54401     63602  46% /
/dev/hda6              5289348   3682364   1338300  73% /usr

box2
Filesystem           1k-blocks      Used Available Use% Mounted on
/dev/hda1               124427     54401     63602  46% /
/dev/hda6              5289348   3682364   1338300  73% /usr

box3
Filesystem           1k-blocks      Used Available Use% Mounted on
/dev/hda1               124427     54401     63602  46% /
/dev/hda6              5289348   3682364   1338300  73% /usr
[download]

This is the output from df -l. The info I need is every box that is over 88% full.Thank You in advance

Back to Seekers of Perl Wisdom