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

$str =~ s!.*/dp/!!;

print "$str\n";