my $string = "abcdefDaveghijkl";
if ( $string =~ /Dave/ ) {
    print "I found Dave.\n";
}