my $IsNumber = qr/^\d+$/;

print "yes\n" if 42 =~ $IsNumber;