if( index( $string, "Peter" ) == -1 ){
    # echo gibt es in Perl nicht
    print "Peter nicht enthalten"; 
}