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)/ );