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