$line =~ /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+.*?avm\s+.*?fre\s+.*?cs\s+.*?us\s+.*?sy\s+.*?id\s+.*?(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+.*?(\d\d):(\d\d):(\d\d)/i

print "$device $1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12\n";