my $var = "123";

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