$day = sprintf('%2d', $DAY);
$hour = sprintf('%02d', $HOUR);
$minute = sprintf('%02d', $MINUTE);
print("$1 $2\n", br)
if m/^(... $MONTH $day $hour:$minute:.. .{4}) (.*)/;
####
# Thu Apr 7 03 : 00 :39 2005
$time_stamp = sprintf('... %s %2d %02d:%02d:.. ....',
$MONTH,
$DAY,
$HOUR,
$MNUTE,
);
print("$1 $2\n", br)
if m/^($time_stamp) (.*)/;
####
print("$1 $6\n", br)
# Thu Apr 7 03 : 00 :39 2005
if m/^(... (...) (..) (..):(..):.. ....) (.*)/
&& $2 eq $MONTH
&& $3 == $DAY
&& $4 == $HOUR
&& $5 == $MINUTE;