my $string = join '', sprintf( '%-3s', $agency ),
                      sprintf( '%04d%02d%02d', split /\//, $date ),
                      $type;