sub find_string {
    my ($file, $string) = @_;
    open my $fh, '<', $file;
    while (<$fh>) {
        return 1 if /\Q$string/;
    }
    die "False :Test result is FAIL";

    find_string('search.txt', 'name: abc ');
}

##</code><code>##

sub find_string {
    my ($file, $string) = @_;
    open my $fh, '<', $file or die "Can't open '$file': $!\n";
    my $text = do {local $/; <$fh>};

    return $text =~ /\Q$string/;
}