# assumption: yyyymmddhhmmss
$date =~ /(....)(..)(..)(..)(..)(..)/;

my $year  = $1;
my $month = $2;
...
my $sec   = $6;