Select Code to Download

  my $map = $traps{$trap}{oid} =~ /\.\d+$/;

  my ($map) = $traps{$trap}{oid} =~ /\.(\d+)$/;