I think that is a good suggestion. But perhaps it would be a good idea to take the flag as the second parameter (and use it optional) like this:

sub do_selection ($;$) {
    my $match = shift;
    my $flag  = shift || 0;

...
[download]

In this case you don't have to change lots of other calls of do_selection.