C:\Renee>perl -Mwarnings -le "my $var = 'test123'; print 'no' unless($var =~ /^\d+$/);"
no