sub Reformat {
    my @field = split( '-', shift());
    my $result = $field[2];
    for my $idx (0..1) {
        ( $field[ $idx ] < 10 ) and
            $field[ $idx ] = '0' . $field[ $idx ];

        $result .= ( '-' . $field[ $idx ] );
    }
    return $result;
}