<b>(a)</b> my ($date,$mon,$year,$hour,$min,$sec,$tz) = ($ap =~ m/.*?(\d+)\s*(\S*)\s*(\S*)\s*(\d*)\:(\d*)\:(\d*)\s*(\S*)/); <b>(b)</b> my ($weekday,$date,$mon,$year,$hour,$min,$sec,$tz) = ($ap =~ m/(\w\w\w\),\s(\d+)\s*(\S*)\s*(\S*)\s*(\d*)\:(\d*)\:(\d*)\s*(\S*)/);
Example 4: (a) Perl regular expression to parse an RFC 822 date that does not include the weekday; (b) parsing a date that contains the weekday.