: 2009-02-16 21:47:21 (perl regex_test.pl)
1..2
not ok 1 - extraction string defined
#   Failed test 'extraction string defined'
#   at regex_test.pl line 56.
ok 2 - string replacement worked
# Perl version = 5.10.0 on cygwin:
# $ARGV{q{--now <seconds>}}->[-1]{seconds}  = undef
# $VAR1 = {
#           '--now <seconds>' => [
#                                  {
#                                    'seconds' => undef
#                                  }
#                                ]
#         };
# Looks like you failed 1 test of 2.