my $s = "abc123";

if( $s !~ m/c1/ ) {
    print "ist nicht drin!\n";
}

my $r = qw/?gegenteil von c1?/;
if( $s =~ $r ) {
    print "ist nicht drin!\n";
}