($ckseq = substr($name,6,6)) =~ s/^0+//g;