use warnings;
use strict;

my $string = 'blah/blah/blah#ThisIsWhatIWant?ButNotThisEtc';

if( $string =~ m/#([^?]*)/ )
{
    print "matched -->$1<--\n";
}