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

...