my $regexp = '(\d{4})(\d{2})(\d{2})\s*((\d{2})(\d{2}))';