in reply to pattern matching whitespace

Two ways come to mind:

1) Preformat your variables correctly:

1a)

$day = sprintf('%2d', $DAY); $hour = sprintf('%02d', $HOUR); $minute = sprintf('%02d', $MINUTE); print("<b>$1</b> $2\n", br) if m/^(... $MONTH $day $hour:$minute:.. .{4}) (.*)/;

1b)

# Thu Apr 7 03 : 00 :39 2005 $time_stamp = sprintf('... %s %2d %02d:%02d:.. ....', $MONTH, $DAY, $HOUR, $MNUTE, ); print("<b>$1</b> $2\n", br) if m/^($time_stamp) (.*)/;

2) Extract the parts and compare those:

print("<b>$1</b> $6\n", br) # Thu Apr 7 03 : 00 :39 2005 if m/^(... (...) (..) (..):(..):.. ....) (.*)/ && $2 eq $MONTH && $3 == $DAY && $4 == $HOUR && $5 == $MINUTE;

I prefer #2