sub parsear {
    my $input = shift;
    $name = basename ( $input, @sufijos );
}