Perlなら
$hoge !~ /^mojiretu/g;
で、文字列以外にヒットするはず