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

##</code><code>##

#!/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

##</code><code>##

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