while (<DATA>) { (undef, $time, $date, undef, undef, undef, $num) = split; } [download]
In reply to Re: Regular expression by converter in thread Regular expression by Anonymous Monk