sub get_date_perl
{
    my $date = substr( $_[0], index( $_[0], '|' ) + 1, 8 );
    return join '', unpack( "A4A2A2",$date );
}