#!/usr/bin/perl
$_ = 'Date: 1 Apr 91 12:34:56 GMT';

/^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;
$mday     = $1;             # gets "1"
$month    = $2;             # gets "Apr"
$year     = $3;             # gets "91"
$hour     = $4;             # gets "12"
$minute   = $5;             # gets "34"
$second   = $6;             # gets "56"
$timezone = $7;             # gets "GMT"

/^Date: ((\d+) (\w+) (\d+)) ((\d+):(\d+):(\d+)) (.*)$/;
$date     = $1;             # gets "1 Apr 91"
$mday     = $2;             # gets "1"
$month    = $3;             # gets "Apr"
$year     = $4;             # gets "91"
$time     = $5;             # gets "12:34:56"
$hour     = $6;             # gets "12"
$minute   = $7;             # gets "34"
$second   = $8;             # gets "56"
$timezone = $9;             # gets "GMT"

@fields = /^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;

($mday, $month, $year, $hour, $minute, $second, $timezone) =
  /^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;

($mday, $month, $year, $hour, $minute, $second, $timezone) =
  $date =~ /^Date: (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) (.*)$/;
