print "Doesn't contain 'system'" 
    if $string =~ m[^(?!.*system)];