print "match\n" if (/(\d{1,3})%/, $1>91);
[download]

That code has a subtle bug in it. If the regex doesn't match, $1 will still be set to its previous value...

#!/usr/bin/perl -w
use strict;

"abc 123" =~ /(\d+)/;

$_ = "its a tub of lard";
print "'$_' matches\n" if (/(\d{1,3})%/, $1>91);

__END__

'its a tub of lard' matches
[download]

Replacing the comma with && will fix it.

if (/(\d{1,3})%/ && $1>91);
[download]

In general, don't use $1 and friends without first checking that the regex you think they belong to actually matched.

-Blake