next if (m/^$/);
last if (m/^Press.*/)       
my $line = $_; 
#grab bits here instead of using awk

##</code><code>##

($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, 13);