Help for this page
$x = '1234'; print $x =~ /^\d{0,3}$/ ? "'$x' matches\n" : "'$x' no match\n"; ... '12' matches '1' matches '' matches