for my $url ("www.abcd.com?file/search",
             "www.abcd.com/search",
             "www.efgh.in#found") {

    my ($fname) = split /[\/#]/, $url;
    
    print $fname;
}

__END__
www.abcd.com?file
www.abcd.com
www.efgh.in