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