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