my $var = "123";

my $re = qr/^\d+$/;
if ($var =~ $re) { print "jau\n"; }