$ perl -le '
> $string = q{%/%/ISIN/US1252691001};
> @matches = $string =~ m{/(.*?)/}g;
> print for @matches;'
%
$