Select Code to Download

sub find_string {
    my ($file, $string) = @_;
...

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

sub find_string {
    my ($file, $string) = @_;
...

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