Help for this page

Select Code to Download

Select or download this

find_string {
    my ($file, @strings) = @_;
...
    }
    die "Unable to find string: $string";
}

Select or download this

find_string {
    my ($file, @strings) = @_;
...
    }
    die "Unable to find string: $string";
}