my $integer = $RE {num} {int};
$subj =~ /^$integer$/ and print "Matches!\n";