Help for this page
$ perl -le ' > $string = q{%/%/ISIN/US1252691001}; ... > print for @matches;' % $