my $str  = '%/%/ISIN/US1252691001';

   my @strings = $str =~ m{(?<=/)[^/]+}g ;

   print join ', ', @strings, "\n";
   print $strings[1];