>perl -wMstrict -le
"print 'this is a number?!?' if 'x9x' =~ /\d+/;
"
this is a number?!?