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

# man beachte das "!"
if( $string !~ /Peter/ ){ 
    print "Peter nicht enthalten";
}