in reply to Regex help

Something like this:

my $str='-plastic-Protector/dp/B00074658';

   if($str =~m/dp\/(.+?)$/){
       print $1,$/;  # print B00074658
    }

[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In Section Seekers of Perl Wisdom