iostat 2 -dkx |perl -e '$|=1;while (<>) { /(?:Dev|[a-s]{3}\s+)(.*)$/ and $1 =~ /[1-9s]/ and print ;};'