Help for this page
if ($array[$i] =~ /\d+/){ <your code> }
>perl -wMstrict -le "print 'this is a number?!?' if 'x9x' =~ /\d+/; " this is a number?!?