#!/usr/local/bin/perl -w


$f1="9-8-10";

$f2 = infofecha($f1);

print "$f2\n";


sub infofecha{
    my $i = shift;
    $i =~ /\d+(\D)\d+(\D)\d+/;
    if ($1 eq $2){
	$separator = $1;
    }else{
	return "ERROR";
    }
    @datos = split "$separator", $i;
    @infodato = reverse @datos;
    $anyo = $infodato[0];
    if ($anyo<66) { $anyo += 2000; }
    elsif ($anyo<100) { $anyo += 1900; }
    $mes = sprintf "%02d", $infodato[1];
    $dia = sprintf "%02d", $infodato[2];
    return $anyo . "/" . $mes . "/" . $dia;
}

__END__
  
Simplemente una utilidad para dar la vuelta a la fecha y hacerla más 
práctica para meter en un solo campo y ordenar los datos por él