Help for this page
next if (m/^$/); last if (m/^Press.*/) my $line = $_; #grab bits here instead of using awk
($rw,$io_s_cur,$io_s_avg,$io_s_max,$kb_s_cur,$kb_s_avg,$kb_s_max,$svt_ +ms_cur,$svt_ms_avg,$iosz_cur,$iosz_avg,$qlen) = split(/\s+/, $line, 1 +3);