(@c) = $block =~ /(\d{14})(\d\d)([ -z]*)/;