Or if you don't want to use a regex:

my $map = substr $traps{$trap}{oid},
     ( rindex $traps{$trap}{oid}, '.' ) + 1;
[download]