my $found = 0;
my $match;      # Only meaningful when $found is true.

...