Select Code to Download

use strict;
use warnings;
...
Use of uninitialized value in concatenation (.) or string at C:\dev\sc
+ripts\reg.pl line 6.
( , , , , ,  )

my ( $yr, $mo, $day, $hr, $min, $sec ) = 
( $when =~ /(\d{4})\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)/ );