SV* get_date (char* str)
{
    char new_date[9]; 
    while (*str++ != '|');
    memcpy (new_date, str+4, 4);
    memcpy (new_date+4, str, 4);
    return newSVpv(new_date,8);
}