#  Decompose directory/sub-directory/file into campaign,
  #  month and file.

  my ( $campaign, $month, $fname ) = split ( '/', $file );