Regular Expression Perl

$text = "345";
if ($text =~ /^\d+$/) {print "It's a number.";}