Help for this page
$input =~ /\d/;
21 dfjdfkfjd2 jf2kjf 9343kfd2
$input =~ /^\D*\d\D*$/;
$input =~ /^\d$/