iostat の出力結果から特定のデバイスでビジー率が高い行だけ抽出する Perl ワンライナー

perl -lane '/^(時間:.*)/ and $t=$1;/^sda/ and $F[13] > 90 and print qq/$t $_/' iostat.log