I have a string "/Science/Publications/Journal/Free_Access_Scientific/";

I would like to have such output:
1.Science/Publications/Journal/Free_Access_Scientific
2.Publications/Journal/Free_Access_Scientific
3.Journal/Free_Access_Scientific
4.Free_Access_Scientific

But I have no idea to manipulate it.Here my trial:
#!c:/perl/bin/perl
use warnings;
use CGI qw(:standard);
use DBI;
use LWP::UserAgent;
use DBD::mysql;
use HTTP::Response;
print header;
#$q="Free Access Scientific";
$q="/Science/Publications/Journal/Free_Access_Scientific/";
@u=split(/\//,$q);

@w=qw/Science Publications Journal Free_Access_Scientific/;
#@w=split(/\//,$l);
$count=0;
$max=$#w;
for(0..$#w)
{
@s=@w[0..$max];
#$as=@s;
print qq(<font size="2">s[$count] is $s</font><br>);

$max--;

}

print end_html;