>perl -wMstrict -le
"my $val = '222test001';
 print $val =~ /^\d+$/ ? 'fire' : 'no match';
"
no match