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