Select Code to Download

($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+(\w+)/i)

$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";

use strict;
use warnings;
...
5049 198 32 3 24 72
device2
Tue Sep  5 10:26:44 GMT 2005