if( $string !~ m/^cat/ ) { ... }