Help for this page

Select Code to Download

Select or download this

for (@ary) {
    print if m/\s(\d+)%/ and $1 >= 90;
...

# as a one liner
perl -ne 'print if m/\s(\d+)%/ and $1 >= 90' infile > outfile