Help for this page
my $when = '2003-07-14 21:39:26.357'; my ( $yr, $mo, $day, $hr, $min, $sec ) = ( $when =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/ );
my $when = '2003-07';
my ($yr,$mo) = $when =~ /^(\d\d\d\d)-(\d\d)/; ^