Select Code to Download

  my @split = split(/\./,$file);
  my $key = $split[1];

  my $key = ( split /\./, $file )[ -1 ];