my $str = '%/%/ISIN/US1252691001'; $str =~ m{/(.+)/} ; print $str . "\n"; print $1;