Select Code to Download

substr $array[13], 22, 8

substr $array[13], 32, 4

use DateTime::Format::Strptime qw( );

...
);

my $dt = $Strp->parse_datetime($array[13]);