in reply to scan, match and extract

my( $mon, $day, $time, $interface, $rate, $duplex, $lpa ) = @{^CAPTURE
+};

[download]

In Section Seekers of Perl Wisdom