Select Code to Download

if( $time =~ m/^(\d{4})(\d{2})(\d{2})T(\d{2})(\d{2})(\d{2})(Z?)$/ ) {
    ( $year, $month, $day, $hour, $min, $sec, $is_gmt ) = 
    ( $1,    $2,     $3,   $4,    $5,   $6,   $7      );
}