Help for this page
Select Code to Download
Select
or
download this
($ckseq = substr($name,6,6)) =~ s/^0+//g;