/^somebegin(?!something)someend$/ 

##</code><code>##

if ( /^somebegin(.*)someend$/ ) {
    my $middle = $1;
    if ( $middle !~ /^something$/ ) {
        # woot
    }
}