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