in reply to RegEx problems

or there's

my $map = (split /\./, $traps{$trap}{oid})[-1];

In Section Seekers of Perl Wisdom