: 2009-02-16 21:47:21 (C:/Perl510/bin/perl regex_test.pl)
1..2
ok 1 - extraction string defined
ok 2 - string replacement worked
# Perl version = 5.10.0 on MSWin32:
# $ARGV{q{--now <seconds>}}->[-1]{seconds}  = '1234'
# $VAR1 = {
#           '--now <seconds>' => [
#                                  {
#                                    'seconds' => '1234'
#                                  }
#                                ]
#         };