Select Code to Download

    use strict;
    use warnings;
...
        Data::Dumper->Dump( [ \%ARGV, $string ], [qw(ARGV string)] );

    exit 0;

    : 2009-02-10 19:56:05 (C:/Perl510/bin/perl regex_test.pl)
    Perl 5.10.0 on MSWin32:
...
            'WHEN' => undef
            };
    $string = 'It is thyme';