Select Code to Download

# method 1
@matches = $string =~ m{/(.*?)/}g;
...

# print the one you want
print $matches[1];