Select Code to Download

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

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

sub parsear {
    my $input = shift;
    my ($name, $path, $suffix) = fileparse( ... );
    return $name;
}

sub parsear {
    my $input = shift;
    return ( fileparse( ... ) )[0];
}

sub parsear {
    my $input = shift;
    return scalar( fileparse( ... ) );
}