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

##</code><code>##

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