my $checknum = "0000000" . substr($source, 18, 12);