Help for this page

Select Code to Download

Select or download this

$Str1 = "000001";
print length($1) if $Str1 =~ /^(.*)[0-9]$/;