Assuming the data is in $_,

my ($text) = m!/([^/]+)/!;
[download]